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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL Sat a Ey eGORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESER 


® 
® 
® 
® 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE © 
NCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
COPIES. THEREOF BAY NOT. GF PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. « 
os 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
® 
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CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR acai OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


SARAH KAHAHHAAAAATEHAAAAEAAAAAHAAAAAAAERAAAAAARAAAAAAAAAAAAAAAAARAAH ERATE 


“FACILITY: 
VAX/VMS EXECUTIVE 
ABSTRACT: 


THIS MODULE CONTAINS THE SHARED MEMORY MAILBOX DRIVER 
1/0 ROUTINES. 


AUTHOR: LEN KAWELL 13-MAR-1979 
MODIFIED BY: 
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4 
° 4 v04-001 prensa? Andrew C. Goldstein, 12-Sep-1984 22:07 
? Fix protection holes in Q10 device protection check 
5 4 v03-017 LMP0271 . Mark Pilant, 12-Jul-1984 12:28 
: Note, in the oR “that shared memory mailboxes cannot have 
S. 
4 
4 VO03-016 LMP0266 Mark Pilant, 27-Jun-1984 11:38 
4 Add $CCBDEF for vos 15 
| v03-015 Loess Mark Pilant, 26-Jun-1984 15:27 
nly do a eiaeatlon check for the first 1/0 to the channel. 
| v03-014 naso300 Ron Sch eter 19-Jun-1984 
d DEVSM_NNM characterist ‘.. to DECHAR2 so that these 
edad will have the ‘‘node$"’ prefi 
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/VO6-001 Breen abe erg es ONES eae o ei oeTUCR.MAR:2 oe” (4D 
v03-013 wMc0001 Wayne Cardoza 17-May-1984 
Previous update not R4 before mutex calls. 
v03-012 Lng 6 Todd M z 05 ott r-1984 


eee dof tn nl se the * system service a had been ce; ‘es 
not only will the 
target logical name be deleted, but so rit all outer access 


v03-011 LMP0221 Pilant 27-Mar-1984 9:12 
pnee e ‘oho onic” to * onBSe MOUNER and UCBSW_VPROT to 

v03-010 R0W0277 Ral S 0. Weber 11-JAN-1984 
5 ace use of IOSM_NORSWAIT modifier to prevent resource 
waits 

V03-009 DMW4039 DMWalp 31-May-1983 
Intergate new tosicel’ name structures. 

v03-008 ROW0172 Ralph 0. Weber 10-APR-1983 
Change device type to DT$_SHRMBX. 

v03-007 ROW0170 Ralph 0. Weber 12-MAR-1983 


Insert delete neiiben functionality from IOCSDELMBX in 
CANCELIO. This moves the mailbox specific knowledge of how to 
delete a mailbox from $DASSGN into this driver. 
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0. 
Change FINISHREAD to lure Oss. DATAOVERUN when number of 
bytes in mail box message being read exceeds number of bytes 
in user supplied buffer. 


v03-001 ROW0104 Ralph 0. Weber 18-JUN-1982 
Make several changes to improve handlin ng of zero sengte 
messages in mailboxes. Change READCHECKIO and WRITECHECKIO 


v03-006 CWH1002 CW Hobbs 1-Mar-1983 
4 Use extended pid in pe process ids. 
0 v03-005 om tg Ralph 0. Srber 29-0 T-1982 
000 all changes necessary to have control transfered t 
000 ERESIORSNUATT at IPLS_ASTDEL rather than IPLS$_SYNCH. this is 
. 3 necessary to conform with internal changes in” EXESIORSNWAIT. 
0 v03-004 ROWO118 Ralph 0. Weber 7-JUL-1982 
00 Chan c. cree READ to return $58 BUF F EROVF aakend of 
00 $S$_ OVERUN. SSS$_BUFFEROVF Ts an alternate success status. 
00 Its” ~ *° place of SS$_DATAOVERUN will allow the buffer 
Soyer tem condition © be reported to interested programs 
9 thout hassling uninterested programs with an error status. 
v03-003 k 008 leen D. Morse 28-Jun-1982 
Aooog DEVDEF ond *EPRVDEF » 
v03-002 ROW0105 Ralph 18-JUN-1982 
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Rivest 19=gEp=198e eer DRIVER. SRCIMBXDRIVER.MAR; 2 ’ Gi). 
0 15 to allow zero-byte messages, and provide a dummy buffer address 
0 138 ; for such messages. Add function code information to shared 
§ 117 ; memory message so that zero Length messages can be 
118 ; differentiated from end-of-file messages. 
00 119 ; This change is distributed as part of MBXDRIVER.EXE ECO 1 in 
88 : 9 3 Version 3.1. 
000 1 : ; v02-008 KDM0074 Kathleen D. Morse 8-Jan-1982 
0000 123; Clear IDB pointer to UCB for shared memory mailbox, 
4 124 ; when no more references to the UCB and it is going 
44 ! 53 to be deallocated. 
$609 1 $ : v02-007 KDM0067 Kathleen D. Morse 10-Nov-1981 
44 | 8 : Fix stack and synchronization problems. 
9000 130 ; v02-006 $1/0026 Steven T. Jeffreys 05-Feb-1981 | 
000 131; Modified FDTSET to default to IOSM_WRTATIN if no 
443 : § 5 function modifier is present. 
0000 134; v02-005 $Ty0020 Steven T. Jeffreys 20-Jan-1981 
0000 135 ; Modified FDTSET routine to handle SETPROT function. 
0000 137; | 
$383 
9000 140 > EXTERNAL SYMBOLS 
0000 146 . SACBDEF ; DEFINE AST CONTROL BLOCK 
0000 14 SCADEF ; DEFINE CONDITIONAL ASSEMBLY 
0000 144 SCANDEF ; CANCEL REASON CODES | 
0000 145 SCCBDEF ; DEFINE CHANNEL CONTROL BLOCK OFFSETS 
0000 146 SCRBDEF ; DEFINE CHANNEL REQUEST BLOCK 
0000 147 SCXBDEF ; DEFINE COMPLEX CHAINED BUFFERS 
0000 148 SDCDEF ; DEFINE DEVICE CLASSES & TYPES 
0000 149 SDDBDEF ; DEFINE DDB 
0000 150 SDEVDEF ; DEFINE DEVICE TYPES 
0000 =151 SOYNDEF ; DEFINE DYNAMIC BLOCK TYPES 
0000 13 SF KBDEF ; DEFINE FORK BL 
0000 15 SIOBDEF ; DEFINE INTERRUPT DISPATCHER 
0000 154 SIODEF ; DEFINE FUNCTION CODES 
0000 155 SIRPDEF ; DEFINE 1/0 PACKET OFFSETS 
0000 136 SIRPEDEF ; DEFINE 1/0 PACKET EXTENSION OFFSETS 
0000 15 SIPLDEF ; DEFINE IPL NUMBERS 
4 138 SMBXDEF ; DEFINE MAILBOX 
1 SORBDEF ; OBJECT'S RIGHTS BLOCK OFFSETS 
4 160 SPCBDEF ; DEFINE PCB OFFSETS 
00 161 SPRDEF ; DEFINE PROCESSOR REGISTERS 
00 16 SPRIDEF ; DEFINE PRIORITY INCREMENTS 
000 16 SPROQDEF ; DEFINE INTER-PROCESSOR REQUESTS 
0 164 SPRVDEF ; DEFINE PRIVILEGE NUMBERS 
165 SRSNDEF ; DEFINE RESOURCE NUMBERS 
- 000 166 SSHBDEF 3; DEFINE SHARED MEMORY CONTROL BLOCK 
16 SSHDDEF ; DEFINE SHARED MEMORY DATAPAGE 
169 SUCBDEF DEFINE UCB OFFSETS” 
U ; 
0 09 126 SVECDEF ; DEFINE INTERRUPT TRANSFER VECTOR 
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: LOCAL DEFINITIONS 


MACRO TO SET PORT FLAG CORRESPONDING TO THIS PROCESSOR 


-MACRO SET_PORTFLAG MASK, ?LABEL 
BBSSI UCBSL_MB_PORT(R5) ,MASK,LABEL 


.ENDM  SET_PORTFLAG 
MACRO TO CLEAR PORT FLAG CORRESPONDING TO THIS PROCESSOR 


-MACRO CLR_PORTFLAG MASK, ?LABEL 
BBCCI UCBSL_MB_PORT(RS) .MASK, LABEL 


.ENDM = CLR_PORTFLAG 


ABEL: 


ABEL: 


DEVICE SPECIFIC 1/0 REQUEST PACKET EXTENSION DEFINITIONS 
SDEFINI IRPE 


= FKBSK_LENGTH ; (BEGINNING IS FORK BLOCK) 

EF  IRPESW_MB_PORTS .BLKw 1 : PORTS TO NOTIFY (1 BIT/PORT) 
DEF  IRPESWIMB-ROTYP .BLKW 1 : REQUEST TYPE CODE 
DEF  IRPESLTMB-PARAM .BLKL 1 + REQUEST PARAMETER 
DEF  IRPESLIMB~PORT .BLKL 1 : NEXT PORT TO NOTIFY 


SDEFEND IRPE 


MAILBOX MESSAGE BUFFER DEFINITION 


SINCE THE SHARED MEMORY POOL IS ONLY ALLOCATABLE IN FIXED 
SIZE BLOCKS, A MESSAGE IS STORED AS A LIST OF CHAINED BLOCKS. 


SOEFINI MSG 


DEF  MSG_Q_MSGLINK : MESSAGE QUEUE LINK 
DEF  MSG"LTPOSTIOBUF .BLKL 1 : 1/0 POST 1/0 BUFFER ADDRESS 
DEF  MSGTL“POSTUBUF -BLKL 1 : 1/0 POST USER BUFFER ADDRESS 
DEF  MSG-W~SIZE “BLKW : SIZE OF BLOCK 
DEF  MSG~B-TYPE “BLKB) : TYPE OF BLOCK (DYNSC_SHRBUF 10) 
DEF  MSG~B-PORT “BLKB : PORT NUMBER OF MESSAGE WRITER 
DEF  MSG-W7LENGTH BLKW : LENGTH ESSAGE IN BLO 
DEF  MSG-W"MSGLENGTH .BLKW 1 : TOTAL LENGTH OF MESSAGE DATA 
DEF  MSGTLTCHAINLINK .BLKL 1 : LINK T T CHAINED BLOCK 
DEF  MSGTLTIRPSEG  .BLKL 1 : IRP SEQUENCE NUMBER OF MESSAGE WRITER 
DEF  MSG"L~PID “BLKL 1 : PID OF MESSAGE WRITER 
DEF § MSG~B-FUNC “BLKB 1 > ORIGINATING FUNCTION CODE 
DEF  MSG~B-MESSAGE : START OF MESSAGE IN BLOCK 
SDEFERD MSG 
SINCE THE MESSAGE IS PASSED DIRECTLY TO 1/0 POST, IT MUST 
CONFORM TO THE DEFINITION FOR A COMPLEX CHAINED GUFFER 
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9; 
0 ASSUME MSG_L_POSTIOBUF EQ 0 
ASSUME MSG"L“POSTUBUF £0 4 
; ASSUME MSG-W"LENGTH EQ CXB$W_LENGTH 
2 ASSUME MSG-L"CHAINLINK EQ CXBSL_LINK 
5; 
$: : INTER=PROCESSOR REQUEST TYPE CODES 
000009001 0000 bro READ = 1 : MESSAGE WAS READ 
09600009 WRITE = : + MESSAGE WAS WRITTEN 
0000000 40 PROM “READER = : READER IS WAITING 
0 42 ; 
+ ‘§ 3 FDT ROUTINE ARGUMENT LIST OFFSETS 
00000000 09 45 P1 = 0 : BUFFER ADDRESS ARGUMENT 
00000004 00 46 P = 4 + BUFFER S176 ARGUMENT 
00000008 909 47 P = 8 + PARAMETER 
0000000C 000 48 PS = 12 + PARAMETER & 
0000 249 
9000 50 ; 
000 251 : LOCAL DATA STORAGE 
0000 3g ; 
9009 5 
000 54 
9000 35 : DRIVER PROLOGUE TABLE 
0000 3 : DPTAB. = ; DRIVER PROLOGUE TABLE 
0000 38 END=MB_EN D. - ; END OF DRIVER 
0000 5 ADAPTER=M : MULTI-PORT MEMORY ADAPTER 
909 60 Uces12e-Ucase ,"8- LENGTH,- ; SIZE OF UCB 
0 61 NAME = mx DRI ; SRIVER NAM 
00 6¢ DPT_STORE INIT 
0 6 DPT_STORE UCB,UCBS$B_FIPL.B,IPL$_MAILBOX 
003C 264 DPT“STORE UCB,UCBS$B_ IPL .B B, IPL$~MAILBOX 
9040 65 DPT“STORE ORB, ORBSB-FLAGS .6,- : Protection block flags 
040 66 20 RaSh “PROT 16!- 3; SOGW protection word 
B060 6 ORB MANOA ACco> 3: No ACLs allowed 
044 68 DPT_STORE ORB,ORBSW_P Q.0 ; se soute protection 
0049 69 DPT“STORE ORB, ORBSL =puNeR Ae <*x010001> : C1,1] owns the device 
050 0 DPTISTORE UCB .UCBSL—DEVCHAR,L .~ 
5 71 <DEVSM_REC!= 
3 re DEVSM_AVL !- 
7 DEVSM_MBX i - 
5 74 DEVSM_IDVi- 
5 75 DEVSM vi- 
5 7 DEVSM—SHR 
5 7 DPT_STORE UC “DCBSL -DEVCHAR2,L.-; DEVICE CHARACTERISTICS 
57 7 <d NNM>~ : PREFIX NAME WITH ‘'node$' 
5E 7 DPT_STORE UCB,OCBSB_ DEVCLASS B,D¢$_ MAILBOX 
06 0 DPT“STORE UCB.UCBS$B_DEVTYPE .B,01$_ SHRMBX 
66 1 DPT“STORE UCB.UCBSW~ DEVSTS, W.UCBSA_SHMMBX 
68 ‘ DPT_STORE REINI 
DPT“STORE CRB, CRBSL_INT 1D+4,D,MBXSINT ; s INTERRUPT SERVICE ROTINE ADDRESS 
4 DPT“STORE DDB.DDBSL DDT -D.RBXSDDT :DDT ADDRESS 
7 5 DPT“STORE END 
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: DRIVER DISPATCH TABLE 


DOTAB 


FUNCTABLE : 


SEP 
SEP 


=138 


4 
4 


READLBLE URI TELBLE.~ 
READVBLK ,WRITEVBLK,=- 
REAOPOLK URI TEPOLK> 


FUNCTAB 


READLBLK,WRITELBLK, - 


ae apeace? WRITEVBLK,= 


READP + 


FUNCTAB FOTREAD 


FUNCTAB rot 


hy E.- 


WRIT 
FUNCTAB FDTSET <SETM 


FUNCTAB FOTEOF ,<WRITEOF> 


9 
37 3: FUNCTION DECISION TABLE 
33 
3 FUN 
WRITEOF, 
5 ry) 
38 
40 
40 
40 
40 
48 
48 
54 
54 
60 
6C 


K -WRITEPBLK> 
<READLELK ,READPBLK, 


ELBLK -URITEPBLK. sun fEVBLK> 
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DISPATCH TABLE 
NAME 

1/0 OPERATION 

ON DECISION TABLE 
1/0 OPERATION 


; ahs Fa DECISION TABLE 

; LEGAL FUNCTIONS 

; SET ATTENTION AST 

; WRITE END-OF-FILE 

; READ/WRITE LOGICAL BLOCKS 
; READ/WRITE VIRTUAL BLOCKS 
; _READ/WRITE PHYSICAL BLOCKS 
; BUFFERED 1/0 FUNCTIONS 

; READ/WRITE LOGICAL BLOCKS 
3 ip pg Pl VIRTUAL BLOCKS 
: RITE PHYSICAL BLOCKS 


READ/W 
READ FDT ACTION ROUTINE 
READVBLK> 

RITE FDOT ACTION ROUTINE 


: SET ATTENTION AST FDOT ROUTINE 
; WRITE END-OF-FILE FDOT ROUTINE 
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= ~SBTTL CANCELIO = CANCEL 1/0 ON MAILBOX UNIT 
; CANCELIO = CANCEL 1/0 ON MAILBOX UNIT 
; FUNCTIONAL DESCRIPTION: 


; THIS ROUTINE IS ENTERED TO CANCEL ALL OUTSTANDING 1/0 FOR A PARTICULAR 
; PROCESS AND CHANNEL ON A MAILBOX UNIT. 


o IF THE UNIT IS BUSY, AND THE CURRENT READ PACKET BELONGS TO 
THE CA NCELLING PRO ROCESS, AND IS FROM THE CANCELLING CHANNEL, 


o THE WRITE 1/0 QUEUE IS SCANNED. IF 
CANCELLING PROCESS, AND IS FROM THE 
COMPLETED. 


) res act 'p AND WRITE ATTENTION AST LISTS ARE SCANNED. IF 
T BELONGS TO THE CANCELLING PROCESS AND is FROM THE 
CANCELLING CHANNEL, IT IS REMOVED AND DEALLOCATED. 


) HA ie a A i et cout OF THE gig A UCB IS ZERO AND Ts FOR 
DELETE “= Son tar ae TO THE MAILBOX CONTROL BLOCK IS 

REMOVES. WAS THE ONLY REFERENCE LEFT, DEALLOCATE ALL_THE 

REMAINING MESSAGE BLOCKS, AND DEALLOCATE THE MAILBOX CONTROL BLOCK. 


A PA 
CANC 


KET BELONGS TO THE 
ANCELLI 


C 
ELLING CHANNEL, IT IS 


; INPUTS: 

NEGATIVE OF cane, NUMBER 

CURRENT PACKET ADDRESS 

ore 4 CANCELLING PROCESS 

CANCEL REASON CODE (CANSC_CANCEL, CANSC_DASSGN, or CANSC_AMBXDGN) 
IPL = IPL$_MAILBOX 

; OUTPUTS: 


R4,R5,R6,R7 ARE PRESERVED 


DOOOSOOSSOSOSOSOOSOSOOOSOOOOOOOOOOOOOOOOOOOOSoOo rz 
OGOOGSOCOOSSOCSOSOSOSSOSSSSSOooooooooooooooooooooooooeoo =m 


OOOO OOOO NINN OOo 


POLK DS DP PW NUMIM PM & 0009009 09 09 69 G9 6D 0D 09 GD C9 OD CD CD CD CD OD CD G9 CD CD CD OD 0D C9 CD Cd CD CD 09.00 09 C9 C9 0D CD CD CD CDCR CDCD 


EANCELIO: CANCEL I/O ON MAILBOX UNIT 
01 64 AS 04 EO BBs #UCBSV_ONLINE ,UCBSW_ sTS(kS), 10$ ; IF ONLINE CONTINUE 
10$: 
OcFO 8F 8B PUSHR #*M<R4,R5,R6,R7, R10. R11> ; SAVE REGISTERS 
58 02 01 CMPL ac NSC_AMBXDGN, : Branch f this is an associated 
of 13 . BEQL ; mailbox last ref. deassign. 
56 52 00 MOVL R2,R6 : COPY CHANNEL NUMBER 
8 : CHECK CURRENT READ 1/0 REQUEST AND COMPLETE IF CANCELLED 
166445 08 €1 auc $V_BSY,UCBSW 15005) 420 READ IN PROGRESS? 
0C A360 Ad bi BSL_PID(R4), IRPSL P1DCR nis if FROM CANCELLING PROCESS? 
28 aS 56 81 C Rb IRP$W_CHAN(R3) ' CHANNEL MATCH? 
09 «(12 7% BNEQ 206 : IF NEQ TREN NO 


] 


RT a re oe 


+ vee yer = SHARED MEMORY MAILBOX DEVICE oniver 1$78 ath 9 90:08:12 YN ver Macro V04-00 Page 3) mi 


| 
| CANCELIO = CANCEL 1/0 ON MAILBOX UN DRIVER. SRCIMBXDRIVER.MAR; 2 vl 
0 2¢ 7D 009¢ 375 MOVQ #S$S$$_ABORT,RO ; SET STATUS TO ABORT 
| o000do00" ef 16 F 7 JSB8 G*10CSREQCOM : COMPLETE THE REQUEST 
i 78 ; CHECK WRITE 1/0 REQUESTS AND COMPLETE IF CANCELLED 
52. O0A0 ‘ 9 A 20$: MOVAB UCBS| MB_WIOOFL (RS) ,R2 : GET ADDRESS OF WRITE 1/0 QUEUE 
D AA MOVL R2.R : COPY LIST HEAD ADDRESS 
$ D A ; 30$:  MOVL (R2)_R2 : GET ADDRESS OF LIST ENTRY 
Db} CMPL =e RO, RO : END OF LIST? 
. ¥ ra BeaL © 408 : IF YES THEN DONE 
60 a4 «bt s«00B 5 CMPL  PCBSL_PID(R4),- + REQUEST FROM CANCELLING PROCESS? 
0c a2 § JRESL-P1D(R2) : 
F 12 A BNEQ 0$ : IF NO THEN SEARCH MORE 
28 a2 56—S—COBsé«éOB : CMPW R6 IRP$W_CHAN(R2) ; CHANNEL MATCH? | 
12 00C¢ BNEQ = 3 : IF NEQ THEN NO 
53 5 oF OC 90 REMQUE (R2),R3 - REMOVE PACKET FROM QUEUE 
38 AS OC) 7D O0C 91 VQ  #SS$ ABORT, IRPSL_IOST1(R3) ; SET STATUS TO ABORT 
00000000'GF 16 00C9 36 JSB *COMSPOST ; COMPLETE THE OPERATION 
D4 «11 OCF 93 BRB o$ + SEARCH LIST FROM THE START 
01 99 ; CHECK ATTENTION AST REQUESTS AND DELETE IF CANCELLED 
57 0090 CS 9€ 00D1 3 40$:  MOVAB UCBSL_MB_WAST(RS).R7 =; GET ADDRESS OF WRITE AST’S 
"GF 16 0006 38 JSB G*COMSFLOSHATTN 3 FLUSH ATTENTION AST'S 
57 0094 CS 9& OODC 39 MOVAB UCBSL_MB_RAST(R5),R7 =: GET ADDRESS OF READ AST'S 
00000000'GF 16 pet 23 JSB G*COMSFLOSHATINS : FLUSH THAT LIST 
0&7 402 : CHECK If MAILBOX CONTROL BLOCK SHOULD BE DEALLOCATED. IF SO, DEALLOCATE 
oe? 403 : ANY REMAINING MESSAGE BLOCKS AND MARK THE MAILBOX AS NO LONGER VALID. 
58 01 D1 O0E7 405° CMPL #CANSC_DASSGN, R8 ; Deassigning channel? 
2 ig OEA 40 BNEQ $ ; Branch if not channel deassign. 
SC A 8 OEC 4 TSTW UCBSW_REFC(RS) :; Is reference count zero? 
6 12 QOEF 408 BNEQ 698 3; Branch if ref. count is not zero. 
51 68 AS 01 €1 Fl 409 45$: BBC #UCBSV_DELMBX, - ; Branch if mailbox is not 
0F6 410 UCB$W_BEVSTS(RS), 69$ : to be deleted. 
50 009Cc C5 09 F641 MOVL “MB_SHB(R5) ,RO + GET ADDRESS OF $ 
0C AO OD ore 4g DECL § SHBSL-REFCNT(RO) ; DECREMENT SHARED MEMORY REFERENCE COUNT 
51 04 A0 00 OOFE 41 MOVL SL“DATAPAGE(RO),R1 =: GET DATAPAGE ADOR 
1 414 LOCK 0_MBXLCK,SHDSB_FLAGS(R1) ; LOCK MAILBOX TABLE 
52 0098 re} D0 1 415 MOVL CB$L_AB_MBX(R5),R > GET LBOx CONTROL BLOCK ADDRESS 
00 OC A AB CS «OE? COT 416 BBCCI UCBSL-MB-PORT(RSS MAxSw_REF(R2),50$ ; CLEAR PORT'S REFERENCE 
OC A285 O12C 417 508: STW MBXSU_REF(R2) ; ANY OTHER REFERENCES? 
1 12 OleF ig BNEQ 708 : if NEQ YE 
08 a2 0 BA 131.41 BICB #MBXSM_VALID mexse FLAGS(R2) ; CLEAR VALID FLAG 
50 09 A A 0135 420 MOVZBL MBX$B_CREATPORT(R2T,RO ; GET CREATOR PORT NUMBER 
5 Alé 86 139421 INCW  SHDSWIMBXQUOTA(R1)CRO) : RESTORE CREATOR'S QUOTA 
5 : —E 01 4 ; 60$: REMQH] MBXSQ~MSG(R2),R11 + GET ADDRESS OF NEXT MESSAGE BLOCK 
1D 0140 4 BVS : IF VS NO MORE BLOCK 
0330 3 14 ‘ 4 BsBu epee $ DEALLOCATE THE MESSAGE BLOCK(S) 
F 11 +t 4 ? $ 69$: Bk $ ; Exit branch assist. 
149 4 : 70$: UNLOCK + #SHDS$V MBXL CK, SHDSB_FLAGS (RI) » UNLOCK MAILBOX TABLE 
7, M.A 0 01 é 4 MOVL UCBSL_CRB(RS) RZ > CLEAR OUT THE POINTER IN THE 
$ 4A ¢ 01 430 MOVZWL UCBSW~UNIT(RSS .R6 - IDB TO THIS UCB, PREVENTING A 
Ca? 00 015A 431 MOVL <CRBSC_INTD*VECSL_1DB>(R?),R7 ; RACE CONDITION BY ANOTHER 
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AX/VMS Macro v04-00 Page 9 
DRIVER. SRC JMBXDRIVER.MAR; 2 (2) 


PORT QUEUING A PRO FOR THIS MAILBOX. 


ower IPL 
est BOs of logical name entry. 


; Lock name table for write. 


Get address of logical name entry. 
Delete logical name block. 


; Unlock name table 

; Mark UCB for deletion, DASSGN 

; will do the rest including crediting 
; quotas for temp. mailboxes. 


Ox bev ICE DRIV ° 16-SEP-19 2:02:15 
ON MAILBOX iit 13-3E b=} 8c 90:08:12 
CLAL IDBSL_UCBLST(R7)(R6) é 
SETIPL aims. ASTDEL 3 
TSTL L “LOGADR(RS) 3 
Beat 3; Branch 
#OvL Ceo TOSAURCAS). R : 
JSB G*LNMSDEL OTe CAMS : 
J$B C*LNASUNEOCK : 
BISL #uCBSM_DELETEUCB, 3 
UCBSL_STS(RS) : 
pore #°M<RG,RS,R6,R7,R10,R11> ; Restore registers. 


10 
XDRIVER = SHARED MEMORY MAILBOX DEVICE DRIVER  16-SEP=1984 00:02:15 YAX/VMS Macro v04-00 Page 1 
vO0-001 CHECKIG = CHECK READ AND UNITE ACCESS AN 15-SEP-1984 O9:15:56 YORIVER.SREIMBXDRIVER.MAR;2 22° (9). 
D 448 |. SBTTL_ CHECKIO = CHECK READ AND WRITE ACCESS AND PARAMETERS 
D 50 ; READCHECKIO = CHECK READ ACCESS AND. PARAMETERS 
D 431 ; WRITECHECKIO = CHECK WRITE ACCESS AND PARAMETERS 
p ci ; FUNCTIONAL DESCRIPTION: 
t: 
D i ; THIS ROUTINE I$ USED BY THE READ AND WRITE FDT ROUTINES TO VALIDATE 
D 496 ; THE 1/0 REQUEST. THE CHECKS ARE: 
D408 0 ACCESS TO UNIT BY UIC 
D460 © MESSAGE SIZE WITHIN MAX MESSAGE SIZE 
D464 0 BUFFER ACCESSABLE 
et 
D 465 ; ZERO LENGTH TRANSFERS AND ACCESS VIOLATIONS CAUSE COMPLETIONS HERE. 
D 467 ; INPUTS: 
469 RO-R2.= SCRATCH 
470 R3 = PACKET ADDRESS 
R4 = PCB ADDRESS 


471: 
R 


me a a ae a ak ed td a a a a a dt 


018D 
018D 
018D 
018D 
018D 
0 D 47 R6 = CCB AD 
D 47% R7? = FUNCTION CODE 
0 D 475 RB = ADDRESS OF FDOT TABLE ENTRY FOR THIS ROUTINE 
D 47 R9-R11 = SC 
0 p 427 AP = ADDRESS OF THE FIRST Q10 PARAMETER 
6 ; rt 4 ; OUTPUTS: 
D 481 R3 = PACKET ADDRESS 
018D 4 : : R4 = PCB ADDRESS 
p 4 33 RS = UCB ADDRESS 
D a8 IRPSL_MEDIA(R3) = BUFFER ADDRESS. 
p 4 6 IRP$W-BCNT(R3) = BUFFER SIZE. 
D 4 *eo 
0 » 6 $ EADCHECKIO: : CHECK FOR READ ACCESS 
00000000'GF  9F p 490 PUSHAB G*EXESREADCHK : SET UP FOR BUFFER READ 1/0 ACCESS 
59 (0 000° GF 9 491 MOVAB GE XESCHKRDACCES R9 ; SET UP FOR UNIT READ ACCESS 
rr D A 496 MOVL § #CCBS$V_RDCHKDON,R10 : 
10 11 0190 49 BRB CHECKIO ; 
9F 494 WRITECHECKIO: : CHECK FOR WRITE ACCESS 
59 00000000'GF 9 9F 495 MOVAB G*EXESCHKWRTACCES.R9 §; SET UP FOR BUFFER WRITE 1/0 ACCESS 
5A 03 p ag 496 MOVL  &#CCBSV_WRICHKDON,R10 ~~: 
00000000'GF 9F O1A9 49 PUSHAB G*EXESORITECHK : SET UP FOR UNIT WRITE ACCESS 
AF 498 CHECKIO: : CHECK 1/0 ACCESS AND PARAMETERS 
30 a3 BG OIAF «4 CL IRPSW_BOFF(R3) + RESET QUOTA 
0A 08 AG SA EO Be 0 BBS R10,CCBSB_STS(R6).10$ ; SKIP CHECK IF ALREADY DONE 
B 1 : R4 = PCB ADDRESS 
87 é : RS = UCB ADDRESS 
69 16 B7 JSB (Rd) > CHECK READ/WRITE ACCESS 
2850 € 89 4 BLBC RO, ERROR : BR IF ACCESS FAILURE 


— 


<= 
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| MBXDRIVER = SHARED ME MAIL BOX EVICE DRIVER “SEP-1984 00:02:15 VAX/VMS Macro v04-00 Page 11 
yOee00! CHECKIO = ¢ READ NO URITE k ACCESS AN 1 18: Hits 90:08: 2 DRIVER. SRCIMBXDRIVER.MAR:2 (3) 
ORE May BAP IE SEE aon: BBSHun RICASIO.STSCNOD 108; pabeSTRO agg DOME 
OF 5 BEQL HEROL cdc Ty : IF EQL THEN COMPLETE HERE 
42 AS 1 CMPW =s-aR1, UCBSW_DEVBUFSIZ(R5) : MESSAGE SIZE IN RANGE? 
4 BGTRU TOOSHAL ALL : IF GTRU THEN NO 
59 6 D MOVL P1(AP)_RO : GET BUFFER ADDRESS 
arclos : MOvL —RO,IRPEL_MEDIACRS) ==» SAVE BUFFER ADDRESS 


* PROCESS ZERO LENGTH TRANSFERS 


: For a zero byte transfer, a dummy buffer (whose address is the current top 
; of the current stack) of zero bytes length is constructed. The normal 

3 access checks must be eypesces for this buffer because the previous caller 
Z 


MORY 
HECK 
5 
$ 
53 
i 
1 
14 
15; 
19 
19 ; 
y ;_ may not have access to the current stack. 
g 
3 
Ba 
355 1 
530 
531 
532 


LENE 
TSTL 


a 05 (SP)+ 3; Pop seen rng rout. addr. from stack. 
32 A D4 CLRL IRP$L_BCNT(R3) 3; Set zero byte count 
38 AS) OG6E 3 MOVAB (SP), IR PSL -MEDIA(R3) 3; Set top-of-stack buffer address. 

0 RSB ; Return directly to routines caller. 


; MAILBOX TOO SMALL FOR MESSAGE 
 hovzuL #SS$_MBTOOSML ,RO : SET BOX TOO SMALL 

; ERROR - Magy! THE 1/0 REQUEST 
JMP G*EXESABORTIO ; ABORT THE 1/0 


50 019C BF 35C 
00000000°GF 17 


TOOS 
ERRO 
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00000000'GF oD 
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= SHARED MEMORY MAILBOX DEVIC 
FDTREAD = READ FUNCTION DECIS 


GEoRMEH ne AACSERCTOES SWSFEEIE. YMRS ase 


: -SBTTL FOTREAD = READ FUNCTION DECISION ROUTINE 
FDTREAD = FUNCTION DECISION ROUTINE FOR READ OPERATIONS 
FUNCTIONAL DESCRIPTION: 


0 V04-00 Page 12 


THE REQUEST Is FIRST cH ECKED FOR READ ACCESS TO THE MAILBOX AND 
WRITE ACCESS TO THE SPECIFIED BUFFER. THE PACKET IS THEN QUEUED 
TO THE UNIT s 179 QUEUE (UCBSL_IOQFL) FOR PROCESSING WHEN THE UNIT 
1S NOT BUS OTHER WORDS, WREN ANY PREVIOUS READ REQUESTS ON THIS 
PROCESSOR whe BEEN SATISFIED. 
IF THE FUNCT LON MODIFIER IOSM_NOW IS SPECIFIED, THE MAILBOX IS CHECKED 
O SEE IF ANY MESSAGES ARE WAITING. IF THERE AREN'T MESSAGES, THE 
REQUEST 1S AOMPL ETED WITH FAILURE, OTHERWISE IT IS QUEUED AS FOR A 


NORMAL READ REQUEST 


INPUTS: 

+ thy = SCRATCH 

R3 = 1/0 PACKET ADDRESS 

nS = Spay ed PCB ADDRESS 

RS = UCB A gee ESS 

: = CCB ADDRESS 

= FUNCTION CODE 

RB = ADDRESS OF FDOT TABLE ENTRY FOR THIS ROUTINE 

R9-R11 = SCRATCH 

AP = FIRST Q10 PARAMETER ADDRESS 
OUTPUTS: 


y: epee 


THE PACKET IS QUEUED VIA ‘EX * OR 
ITH AN ERROR VIA “EXESABORTIO'’ OR 


THE REQUEST IS COMPLETED 
“EXESF INISHIOC’ 


STATUS CODES: 


SS$_NOPRIV = USER DOES NOT HAVE PRIVILEGE TO READ MAILBOX 
SS$S"ACCVIO = BUFFER ACCESS VIOLATION 
SS$_MBTOOSML = REQUEST EXCEEDS THE MAXIMUM MESSAGE SIZE 
SSS"ENDOFFILE - NO MESSAGE AVAILABLE AND IOSM_NOW SPECIFIED 
SS$"NORMAL = NORMAL STATUS 

DTREAD: 
BSBB  READCHECKIO ALIDA TE THE REQUEST 
BISW #IRPSM_MBXIO, IRPSW_ eaade” ; SET MAILBOX READ 


UPDATE MEASUREMENT COUNTER IF ENABLED 


.1F NE CAS_MEASURE 
ae G*PMSS$GL_MBREADS 


; COUNT MAILBOX READS 
— Two “e — } EXTENS 
TO WAIT ) NOTIFY 
FYING OTHERS PROCESSOR W 


IONS TO USE AS FORK BLOCKS IF WE'RE 
ING OTHER PROCESSOR OF WAITING READER 
HEN MESSAGE IS READ 


MBXDRIVER.MAR; 2 (4) 


<2 | 


+ pe VER 
Vv 1 
54 AS 


Bene 


17 20 AS 06 
52 0098 C3 

6 
50.0870 BF 


00000000 GF 
00000000 ' GF 


FotR 


i 


ARED MEMORY MA 


EAD - 


1 
1 


EAD FUN 


OOo 
wr 


tf 


3 3 

95: IF 
38 : iF 
2 3 OT 
3 q 
$3 

6 

$08 
604 

605 

O06 

607 10$: 
608 


orlven 


bo 
RI 


0 
Vv 


0 
ER.MAR; 


MAKE SURE NO 
SNEAKS IN QUEUE 


Ox DEVIC “SEP=1984 00:02:15 VAX/VMS Macro 
ON Pee SF on ROUTINE 1828 ety 90:08:12 DRIVER. SRCJMB 

CLRL {RPSL EXTEND(R3) : SET NO EXTENSION YE 

BSBW = ALLOC“IR + ALLOCATE AN EXTENS! 

BSBW = ALLOC“IRP + ALLOCATE ANOTHER EX 
1OSM_NOW IS SPECIFIED, CHECK IF THERE ARE ANY MESSAGES W 
THERE ARE OR OSM NOW IS NOT SPECIFIED, QUEUE THE REQUES 
ERWISE COMPLETE TRE REQUEST WITH FAILURE. 

BBC #10$V_NOW, IRPSW_FUNC(R3),10$; BR IF NOT "NOW 

SETIPL #IPLS~MAILBOX ; RAISE IPL TO 

t OTHER REQUEST 

MOVL UCBSL_MB_MBX(RS).R2 : GET MAILBOX ADDRESS 

TSTL MB XOGASG(RE) ; ANY MESSAGES IN MAILBOX? 

BNEG 108 : IF NEQ THEN YES 

MOVZWL #SS$ ENDOFF ILE RO t SET NO TRANSFER AND STATUS 

JMP G*EXESF INISHIOC : COMPLETE THE 1/0 

JMP G*EXESQIODRVPKT : QUEUE PACKET TO STARTIO 


P 
2 


age 


— 
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XDRIVER = SHARED MEMORY MAILBOX DEVICE DRIVER SEP=1984 AX/VMS Macro v04-00 Page 14 
yOne0O} FDISET > HANDLE SET RODE FUNCTIONS 13=SEe 198 99:98 ts OR Wes acre tele mans2 ome 3) 
.SBTTL FDTSET = HANDLE SET MODE FUNCTIONS 
FDTSET = HANDLE SET MODE FUNCTIONS 


; FUNCTIONAL DESCRIPTION: 


DISET: : SET RECEIVE AST FUNCTION 
SEE IF THIS IS A SETPROT FUNCTION. 


BBS #10$V_SETPROT ,- ; BRANCH IF SETPROT FUNCTION 
IRPSW~FUNC(R35 ,50$ ; 


: SEE IF USER CAN READ THIS MAILBOX 


: THIS ROUTINE IMPLEMENTS THE 10$_SETMODE FUNCTIONS. 
> THE DIFFERENT FUNCTIONS ARE SELECTED BY A FUNCTION CODE MODIFIER. 
: THE FUNCTIONS ARE: 
: IOSM_SETPROT | = SET VOLUME PROTECTION 
: IOSM“READATTN = SET READ ATTENTION AST 
; IOSMZWRTATTN = SET WRITE ATTENTION AST 
> INPUTS: 
; ary = SCRATCH 
; = 1/0 PACKET ADDRESS 
; = CURRENT PC 
0 : = UCB ADDRESS FOR MAILBOX UNIT 
8 ; res = ADDRESS OF QI0 PARAMETER BLOCK 
0 > OUTPUTS: 
6 : NONE. 
6 : STATUS RETURNS: 
6 ; SS$_NORMAL = SUCCESSUFL COMPLETION 
: SSS-INSFMEM = INSUFICIENT MEMORY TO ALLOCATE AST BLOCK 
0 : SSSTEXQUOTA = AST QUOTA EXCEEDED 
0 : SSS-ILLIOFUNC = ILLEGAL SET MODE FUNCTION 
6 ; SSS"NOPRIV = THE USER CANNOT SET THE VOLUME PROTECTION 
6 fp 


m 
So 


09 
65 20 A3 


RS = UCB ADDRESS 
JSB G*EXESCHKRDACCES 3 pre ce UREAD ACCESS TO UNIT 


00000083 $0 £9 BLBC RO, ERROR 


DOOD AE WIS OD NA UNE WIN SO OD NIA NEW 3 S ODA W  O ONO ES tO 


PDP PDPP AAP AAPA AAA AAA AAA AAA AAA AAA A AAA AAA AA AAA A AAAI AAAO 


PE PUPUPV SVS SII Be BS BS ES BS BS BE EE ANNA NII IAI PU RPOPOPINIPININIDD 9 = OOO ee 


E : LOW CLEAR THEN ERROR 
: CREATE AN AST CONTROL BLOCK AND ENTER IT IN APPROPRIATE ATTENTION LIST 
? 5 1 MOVAL UCBSL_MB_WAST(RS),R WRITE Sst, List ADDR 
08 20 09 ; 7 pf 6 661 BBC #l0$v =RERD ATIN jnosy. rat 08; 8 T READ AST 
57. 0094 (5 —séODE 5 MOVAL UCBSL~ TCR Dok or bap” AST LIST 
4 DD 024 10$:  PUSHL R4 ; DDRESS 
7 DD 026 6 4 PUSHL 7 : SAVE AST LIST HEAD ADDRESS 
00000000" 6 1 4 65 JSB G*COMSSETATINAST : ENTER AN AST REQUEST IN LIST 
| 4 8ED 6A 666 POPL RG : GET AST LIST HEAD ADDRESS 
| 
} 


N 10 
MBXDRIVER - SHARED MEMORY MAILBOX DEVICE DRIVER 19-SEP-1984 90:08:15 AX/VMS Macro v04-00 Page 15 
v04=001 FDTSET = HANDLE SET MODE FUNCTIONS 12-SEP-1984 23:15:56 CORIVER.SRCIMBXDRIVER.MAR; 2 (5) 
4D 67 ; 
4D é 8 : SET WAITING ATTENTION AST FLAG IN MAILBOX AND CHECK IF ATTENTION 
4D ; CONDITION ALREADY EXISTS. IF IT DOES, CLEAR THE WAITING ATTENTION 
4D 6 p : AST FLAG IN MAILBOX AND DELIVER THE AST. FLAG MUST BE SET BEFORE 
4D 67 : CHECK IN CASE ANOTHER PROCESSOR CHECKED FOR WAITING ATTENTIONS AFTER 
re or¢ ; WE DID, BUT BEFORE WE COULD SET OUR WAITING FLAG. 
0998 ¢5 09 40 674 MOVL UCBSL_MB_MBX(RS),R Re Ger ADDR OF MAILBOX 
12 208 E 675 BBS #IOSVIREADATIN, IRPSW_ FUNE(RS),20$ ; BR IF READ AST 
676 ; WRITE ATTENTION AST REQUEST 
7 67 SET PORTELAG MBX$W_WRITAST(R2) +: SET FLAG TO NOTIFY IF WRITE OCCURS 
$8 0 5 O78 TSTC MBX$Q_MSG(R2) 3 ANY MESSAGES WRITTEN? 
1 6 ? BEQL 408 : IF EQL THEN NO = JUST COMPLETE 
62 680 CLR_PORTELAG MBXSW_WRITAST(R2) ; CLEAR NOTIFY FLAG 
13 11 0269 681 BRB t DELIVER THE AST 
0268 6 ; 20S: ; READ ATTENTION AST REQUEST 
0 6 SET _PORTFLAG MBX$W_READAST(R2) ; SET FLAG TO NOTIFY IF READ OCCURS 
OE A2 if 6 684 TST@ MBX$W_READER(R2) 3 ANY BEARERS AITING? 
OD 13 0275 685 BEQL : IF EQL THEN NO - JUST COMPLETE 
0 A 6 2 a CLR_PORTFLAG MBX$W_READAST(R2) ; CLEAR” NOTIFY FLAG 
00000000'GF 16 ° ze ess JSB G*COMSDELATTNAST : DELIVER THE AST IMMEDIATELY 
Be 690 : COMPLETE THE SETMODE REQUEST 
54 BEDQ Hn 69¢ hos: POPL R4 : RESTORE PCB ADDRESS 
00000000'GF 17 0 87 693 45$: JMP G*EXESF INISHIOC : COMPLETE THE 1/0 
8 i 695 : HANDLE THE SETPROT FUNCTION 
50 24 3¢ D 697 50$:  movZuL #sss NOPRIV,R : ASSUME NO PRIVILEGE 
51 1C AS 00 0290 698 MOVL Bsc "ORBIRS) R1 : GET ORB ADD 
00st c4—CoéO 0 94 699 CRPL tat te VIC : IS THIS THE VOLUME OWNER? 
61 38 00 RBSL “bUNERCRID ; 
1E 12 0 99 701 BNEQ : BRANCH IF NOT 
50 O04 AC B 98 702 51$:  MOVW  P2(AP),RO : GET THE PROTECTION MASK 
52. 0098 CS DO 029F 70 MOVL UCBS$L_MB_MBX(RS),.R2 ; GET MBX ADDRESS 
Ad = 708 SETIPL UCBSB “DIPL(RS) BLOCK DEVICE INTERRUPTS 
0B Al «46001)=—s 8BSC2AB S705 B1SB2 FORBSA babt 16, 0RB$B_FLA nisin) PROTECTION WORD hot VECTOR 
18 Al 50 BO O2AC 706 MOVW ,ORBSW_PROT(A1) 3 SET THE NEW PROTECTION 
1A A 50 80 80 7 MOVW *MBXSW~ PROT (Ra) > SET SECON D copy mi PROTECTION MASK 
50 01 «63C «(02B4 708 MOVZWL Ra NORMAL ,R : SET SUCCESS STATUS 
CE 11 0287 70 BRB : COMPLETE THE I/ 
1D €0 0289 710 52%: BBS sPavev V_BYPASS,- + BRANCH IF USER HAS BYPASS 
DD 6C B4 BB 7111 aPCBSL “PHD(R4S ,518 : 
FF23. 31 O2BE 712 BRW ERR : ABORT THE 1/0 
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MBXDRIVER = SHARED MEMORY MAILBOX D AX/VMS Macro v04-00 Page 16 
v04=001 FDTEOF = WRITE EOF MESSAGE TO MAILBOX 12-SEP-1984 4 9%: ¢: 3 DRIVER. SRCIMBXDRIVER. MAR; 2 ” i 
3 ay: ie .SBTTL FOTEOF = WRITE EOF MESSAGE TO MAILBOX 
3 16 : FDTEOF = WRITE EOF MESSAGE TO THE MAILBOX 
3 18 > FUNCTIONAL DESCRIPTION: 
€1 720 : THIS IS THE FDT ROUTINE FOR LOSURITEOF . THE ACTION IS TO BUILD A 
C1 721 : ZERO LENGTH MESSAGE AND TO INSERT IT IN THE MAILBOX. 
3 4 ¢ ; THIS MESSAGE, WHEN READ RESULTS IN AN SS$_ENDOFILE STATUS RETURN. 
C1 724 : INPUTS: 
0 C1 725: 
5 BS 6 : RO-R2 = SCRATCH 
02C1 727: R3 = 1/0 PACKET ADDRESS 
02¢1 728: R4 = CURRENT PCB ADDRESS 
02¢1 729: R5 = MAILBOX UCB ADDRESS 
02c1 730: RG = CCB ADDRESS ; 
02c1 731: R7? = FUNCTION CODE 
02c1 7 é ; RB = ADDRESS OF FDT TABLE ENTRY FOR THIS ROUTINE 
O2c1 733: R9-R11 = SCRATCH 
0 cl , 4 : AP = ADDRESS OF USER ARGUMENT BLOCK AT ‘'P1"' 
02c1 7 5 + OUTPUTS: 
02C1 737 3 
02¢1 738: IRPSL_MEDIA(R3) = FAKE BUFFER ADDRESS. 
0 cI 139 : IRPSW-BCNT(R3) = ZERO BUFFER SIZE. 
0 cI 241 : THE 1/0 IS COMPLETED IN THE WRITE FDOT LOGIC. ( SEE BELOW ) 
021 8 EDTEOF: : 
30 A304 «(02C1) = 744 CLRL —sLRPSW_BOFF (R3) : SET NO TRANSFER AND NO QUOTA 
0 (4 745 : R4 = PCB ADDR ESS 
(4 746 : RS = UCB ADDRESS 
00000000'GF 16 02C4 747 JSB G*EXESCHKWRTACCES > CHECK URITE PACCESS TO UNIT 
09 50 £9 O2CA 748 BLBC : IF ERROR THEN BRANCH 
32 AS) D4 «(02CD S749 CLRL IRP$W_BCNT(R3) : SET ZERO LENGTH BUFFER 
38 AS 6EOCOS'E 0200 750 MOVAB (SP) Teese _MEDIA(R3) : SET FAKE ADDR OF BUFFER 
06 11 02046 751 BRB WRITE : WRITE THE MESSAGE 
FFOB 31 0206 752 108: BRW ERROR : CONTINUE 
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re ~SBTTL FDOTWRITE = WRITE OPERATION FDT ROUTINE 
FDOTWRITE == FUNCTION DECISION ACTION ROUTINE FOR WRITE FUNCTIONS 
FUNCTIONAL DESCRIPTION: 


on 
ee 
23 
=< 
mn 
@ 
"se 
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—mn 
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wm 
cz 


Spin pn Sin pi pn Bn Bn Bi Bin i i i i Pe ee 


THE USER REQUEST {s vay [RATED FOR PRIVILEGE, SIZE, ACCESS AND AVAILABLE 
SPACE. IF VALID, A BUFFERED 1/0 BLOCK IS ALLOCATED (IMPLIED RESOURCE WAIT). 
THE BLOCK is SEf UP AND QUEUED TO THE UNIT MESSAGE LIST. IF THE UNIT 
1S BUSY, THE OUTSTANDING READ OPERATION IS COMPLETED DIRECTLY. 
IN THE CASE OF "WRITENOW' FUNCTIONS THE 1/0 IS COMPLETED BEFORE THE 
MESSAGE IS QUEUVED. OTHERWISE THE READ COMPLETE ROUTINE COMPLETES 
THE MESSAGE ASSOCIATED WRITE. 
INPUTS: 

R3 = 1/0 PACKET ADDRESS 

R4 = CURRENT PCB ADDRESS 

RS = UCB ADDRESS 

R6 = CCB ADDRESS 

R7 = FUNCTION CO 


DE 
R8 = ADDRESS OF FDT TABLE ENTRY FOR THIS ROUTINE 
R9-R11 = SCRATC 
AP = ADDRESS OF USER ARGUMENT BLOCK AT ‘'P1"' 
OUTPUTS: 


THE 1/0 IS COMPLETED IN 
RESOURCE WAIT, OR THE | 


STATUS RETURNS: 


ERROR, THE I/0 IS RESTARTED BECAUSE OF 
/0 1S COMPETED NORMALLY. 


C9 C9 09 C9 C9 09 C9 09 C9 SI NINN SINS SN NIAAA AAA AAAAUUIUII = 
CNAME WN SO ODNAUE WN (OOD NOUE WH" OOOnNOus -< 


POIPOPIPO PIPPI PIPINIPIPIPIAIPINIPINIPINININININININININININNPINITINNY 


MMMMMMMMMMMMMMoOoOOOCOVCVTVCTOCVCOCVTVCVCTCVCTVCCVTVTVTVCTVTVTVTVTVTVCVTVCVCTC0C000Cc0"c0°0°0"°90C0°9—"9 mo 
RAMON BDAAAAPAS LOOM OOO OOOOOOOVOOOVOVOOOOVDOOOVOVOVOVOVOVOVOVOOVOOOOOOOOOOO 


SS$_MBTOOSML - MESSAGE IS TOO BIG 
SS$S-ACCVIO = BUFFER ACCESS VIOLATION ( "EXESWRITECHK" ) 
SS$"MBFULL - MAILBOX IS FULL 
789 SS$"NOPRIV = USER DOES NOT HAVE WRITE PRIVILEGE 
790 SSS"NORMAL = SUCCESSFUL STATU 
731 : SS$"INSFMEM = NO MEMORY FOR BUFFER ALLOCATION 
138 FDTWRITE: : 
794 aiiiea WRITECHECKIO : CHECK OPERATION PARAMETERS 
59 32 a3 3¢ 79 " MOVZWL IRP$W_BCNT(R3) -R : RO = SIZE OF USER DATA 
SA 38 AS ODO 79 MOVL TRPSL “MEDIACRSS © B10 : R10 = ADDRESS OF USER DATA 
D4 a CLRL sR : R11 = ADDRESS OF FIRST BLOCK 
a ALLOCATE AN 1/0 PACKET EXT ENSION TO USE AS A FORK BLOCK IF WE'RE FORCED 
; TO WAIT WHEN NOTIFYING OTHER PROCESSORS OF THE AVAILABILITY OF A MESSAGE. 
54 a3 ps CLRL —«s IRPSL_EXTEND(R3) : SET NO EXTENSION YET 
03F1 =. 30 BSBW ALLOCTIRPE t ALLOCATE A EXTENSION 
ALLOCATE SHARED MEMORY POOL BLOCK 
ALLoc BLOCK: : ALLOCATE SHARED MEMORY BLOCK 
52. 009 (SO MOVL §UCBSL_MB_SHB(RS),R > GET F 
51 04 A2 00 10 MOVL  SHBSL ~DATAPAGE CRED. Rl: GET ADDR OF SATAPAGE 
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OPERATION FDOT ROUTINE 18: iets 1 90:98:43 DRIVER. SRCIMBXDRIVER.MAR; 2 . UF) 
MOVL SRSNS WED IMMER, RO : GET RESOURCE NUMBER 
DSBINT eiPt ss “SYNCH PREVENT SCHEDULING 
MOVAW SHDS$W RESWAIT(R1)CROJ, ~ bps SAVE ADDR OF WAIT MASK 
SET_PORTFLAG @(S s asé E ALLOCATION FAILURE 
; (AVOIDS MISSING NOTIFICATION) 
JSB ae : ALLOCATE A SHARED MEMORY BLOCK 
BLBS RO, 10$ ; IF LBS SUCCESS 
BRw ALLOC_FAIL : ELSE = FAILURE 
108: CLR_PORTFLAG &(SP) ; CLEAR FLAG SINCE BLOCK OBTAINED 
ENBINT 3 ALLOW SCHEDULING 
TSTL R11 3; IS THIS THE FIRST BLOCK? 
BNEQ 208 3 IF NEQ NO 
MOVL R2,R11 ; SAVE ADDRESS OF FIRST BLOCK 
MOVW RS.MSG_W_MSGLENGTH(R2) : SET SIZE OF MESSAGE DATA 
we BRB SE fuP_BLOCK ; 
SUBL3 R11,R2,MSG_L_CHAINLINK(R8) ; SET OFFSET FROM FIRST BLOCK TO NEW BLOC. 


: SET UP MESSAGE 
SETUP_BLOCK: 


10$: 


15$: 


> INTERLOCK QUOT 


BLOCK 


#OYNSC_SHRBUF I0,MSG_B_ TyPE 


UCBSL_MB PORT (RS) 
PROSC SIALENG H GE 
#"sG_6_M ena 
Rg MS 9,mSG~ 4 ePENCTHCR2) 


10 
R1,MSG_W_LENGTH(R2) 


MSG_L = GRATIS 1 Re) 
TRESLZS erry | as 


MSG_L ~TRP 2) 
#108¥ “NOU. ty FUNC<R3) 


MSG_L-IRPS 


MSG. W_LENGTH(R2 
(R10) DGAGG BRE SSAGE (R2) 


fh 
x i Q 2 RSERE RBS RO 
RO,R10 


R 
CHECK_QUOTAS 
ALLOC “BLOCK 


A CHECKS 


Se Se Ge Ge te 


MSG_B_PORT(R2) 
MSG 5M 


— 
SOU CO Mec 


SET uP MESSAGE BLOCK 
(R2) ; SET TYPE OF BLOCK 


SET WRITER'S PORT NUMBER 
ESSAGENS “NEED ROOM FOR SOME DATA 
SIZE FOR DATA IN BLOCK 
A SUME att DATA FITS IN BLOCK 
ATA TOO BIG? 


NO _- DATA FITS 
ET LOWER SIZE 


IN LINK POINTER 
S IRP SEQUENCE NUMBER 


R° 

F_NOT ‘NOW’ 

TER’S IRP_ SEQUENCE NUMBER 
NO NEED TO NOTIFY WRITER 
TENDED PID OF WRITER 

SAVE 1/0 FUNCTION BEING PERFORMED. 


SAVE ADDRESS OF BLOCK 


SAVE REGISTERS 
MOVE FROM USER TO SHARED MEMORY 


Res" one REGISTERS 
GET SIZE 0 


DECREMENT USER BUFFER SIZE 
IF EQL, NO MORE 
ELSE, ALLOCATE ANOTHER BLOCK 


- 


-——____—— 


voe-001 rot 


51. 009¢ CSD 
51 O04 A1 OD 


7E OAs 185 BP 


52. 0098 CS) (0 


18 A2 «32 AS OBI 
78 =A 
16 ag B6 
32 A A2 
18 Ae 
44 05 16 A2 860 


0287 
28 


00000002 
00000000°GF 06 


“bono tS 68 be 


007A 30 
50.0394 BF C 
00000000°GF 17 
00000000'GF 17 
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ante o WRITE OPERATION iF ROUT INE 18: -SEP-1984 99: 8: i YOR RIVER. SRCIMBXDRIVER.MAR:2 * (7) 
68 CHECK_QUOTAS: ; CHECK MAILBOX QUOTAS 
DSBINT #1PLS MALL LBOX ; DISABLE MAILBOX 1/0 INTERRUPTS 
VL  UCBSL-MB_SHB(RS) : GET ADDRESS OF SHB 
? MOVL SuBBL -DATAPAGE (nf) R15 GET ADDRESS OF DATAPAGE 
7 HOVE #RSNS-MAILBO GET RESOURCE NUMBER 
9 7 SHDSW RE SWAT TORT) CRO. ~(§) SAVE ADDRESS OF WALT MASK 
7%, Set MPORTELAG a(SP) 3 ASSUME MAILBOX FULL FAILU 
A 75 ; (AVO IDs MISSING NOTIFICATION) 
A 7 MOVL UCase MB_MBX(RS) ,R2 GET ADDRESS OF MAILBOX 
al , LOCK  #MBXx$0_QOOTALCK,MBX$B -FLAGSR2) INTERLOCK QUOTA CHECKS 
C4 879 : SEE IF MESSAGE wee EXCEED MAILBOX BUFFER QUOTA, IN OTHER WORDS, IS 
$2 ? ; THE MAILBOX F 
C4 : ; CMPW CAL RPSW BENT(R3), MBXSW =BUFFaYO(R2) MESSAGE FIT? 
c9 ; BGTRU MAILBOX_F IF R THEN NO 
cB 5 : ADJUST MESSAGE COUNT AND BUFFER QUOTA 
§ cB ; , INCW MBXSW_MSGCNT(R2) ; INCREMENT MESSAGE COUNT 
3CE 88 SUBW Ss RPSW~BCNT(R3),- : DECREASE BUFFER QUOTA 
301 9 X$W~BUF FQUO(R2) 
303 © 890 UNLOCK anaxs0 ac¥OrAL CK MBX$B lesan : NLOCK MAILBOX QUOTAS 
308 6-891 MOVW _MBX$W_ASGCNT(R25 ,UCBSC_ DEVDEPEND(RS) SAVE MESSAGE COUNT 
O30 3 CLR_PORTFLAG &(SP)+ CLEAR WAIT inc. AS MAILBOX NOT FULL 
O36 94 : QUEUE THE MESSAGE. MUST BE QUEUED BEFORE WE LOOK FOR ANYONE WAITING 
9 6 99 : TO AVOID MISSING AN INTERESTED PROCESSOR. 
baee 97 * QRETRY SUCCESS=20$,- ; INSERT MESSAGE IN QUEUE 
O36 98 INSQTI (R11) ,MBX$Q_MSG(R2) ; 
O3F 99 ENBINT : RE-ENABLE INTERRUPTS 
0 FB 900 BSBW DALLOC BLOCKS ; DEALLOCATE MESSAGE BLOCKS 
FB 901 MOVZWL #SS$_BADQUEUVEHDR,RO ; SET FAILURE STATUS 
9490 9 ; JMP G*EXESF INISHIOC : COMPLETE THE 1/0 
406 4 : NOTIFY OTHER INTERESTED PROCESSORS THAT A MESSAGE WAS WRITTEN. 
406 20$ 
40 PUSHR #*M<R3,R5> : SAVE REGISTERS 
40 BSBW = NOTIFY WRITE : NOTIFY INTERESTED PROCESSORS 
408 POPR #*M<R37R5> : RESTORE REGISTERS 
400 : UPDATE MEASUREMENT COUNTER IF ENABLED 


Uf NE CA$_MEASURE 3; CHECK FOR sere i ENABLED 
NCL G*PMSS$GL_MBWRITES 3; COUNT MAILBOX WRITES 


UEST SPECIFIED 10SM_NOW, COMPLETE IT. ELSE T 1/0 
WRITE QUEUE AND IT QILL BE COMPLETED WHEN féstace” IS READ. 


alge NOW, IRP$W_FUNC(R3), 308; mn If anit — NOW 

R3) ,OCBSL _MB_WIOQFL (RS) x INSE A. WRITE 1/0 QUEUE 

NT 3 RESERABLES INTERRUPTS 
G*EXESQ1ORE TURN ; RETURN TO CALLER 


mre ooo “OOOO 
VVNSSLeeeeeeeeesssssss 
PU CO OOWOUE WO 0OOnNoO 

oe 
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Wec00y EDTURTTE  URITE OPERATION FOF ROUTINE  {SaSEpatope S9:98:88 PANIES Bacco Vos TOO man:2 2% 29, Sy 
4 5 ENBINT 3 RE-ENABLE INTERRUPTS $$ 
50 30a3 O 4 § 3 $ MOVL IRPS$W_BCNT=2(R3),RO 3 SET BYTE cbUNT IN 2ND WORD $$ 
50 01 8 4 p 9 MOVW #SS$_RORMAL RO : SET STATUS IN 1ST WORD AL 
00000000 ' GF 4 oR JMP G*EXESF INISHIOC ; COMPLETE THE 1/0 AL 


AAO 
OCoCOoOrtIrToOoOo,> 


DRIVER 
voe-001 Autoc. 
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BOX_FULL = WRITE FOT ROUT “SEP-19 DRIVER.SRCJMBXDRIVER.MAR; 2 (8) 


cm 


ED Y 
_FAIL/MAIL 
4 3 0 ~SBTTL ALLOC_FAIL/MAILBOX_FULL = WRITE FDT ROUTINE FAILURES 
4 : 
436 3 j : ALLOC_FAIL = SHARED MEMORY POOL ALLOCATION FAILURE. 
4 5 , ; MAILBOX_FULL = MAILBOX QUOTA FAILURE. 
4 $ § 3 INPUTS: 
436 937; 
436 9 3 : R3 = IRP ADDRESS. 
436 «939: R5 = UCB ADDR 
4 6 940 ; Ril = FIRST SHARED MEMORY MESSAGE BLOCK ADDRESS. | 
4 3 3 ; ALLOC_FAIL: 
436 943: (SP) = ADDRESS OF SHARED MEMORY WAIT MASK. 
: ? ate 3 4(SP) = OLD IPL (IPLS$_ASTDEL) | 
436 946 ; MAILBOX, FULL: 
4360 (947 : (SP) = OLD IPL (IPL$_MAILBOX) | 
436 948: 4(SP) = ADDRESS OF SRARED MEMORY WAIT MASK 
04 6 949: 8(SP) = OLD IPL (IPL$_ASTDEL) 
436 950; 
04 6 931 : OUTPUTS: | 
b 6 93 : ALL SHARED MEMORY MESSAGE BLOCKS IN THE CHAIN ARE DEALLOCATED 
0436 «954: AND THE REQUESTING PROCESS IS PUT IN A WAIT STATE UNTIL THE 
04 6 935 ; NEEDED RESOURCE BECOMES AVAILABLE. | 
436 339 ALLOC_FAIL: : SHARED MEMORY ALLOCATION FAILURE | 
SE 04 co 436 «958 ADDL 4#4,$ : POP ADDR. OF WAIT MASK OFF STACK 
6— 0126 BF 3¢ 439 959 MOVZWL it INSFMEM (SP) t SET FAILURE STATUS FORGETTING IPL 
51 03 9A 0463E 960 MOVZBL #RSNS NPDYNMER, : SET RESOURCE TO AWAIT 
16 11 0441 961 BRB SHMRES_W : | 
43 962 MAILBOX_FULL: MAILBOX 1S FULL 
443 96 UNLOCK #MBX$V_QUOTALCK,MBX$B_ FLAGS. ) ; UNLOCK QUOT As 
SE 04 CO 0448 964 ADDL @ MASK ADDRESS OFF STACK 
6— 0808 BF 3¢ 44g 365 MOVE uL asss MBFULL, (SP) : SET FAILURES STATUS, FORGETTING IPL | 
51 02 9A £28 367 MOVZBL #RSNS_ “RAILBOX,R1 ; SET_RESOURCE TO AWAIT 
459 968 SHMRES_WAIT: : WAIT FOR SHARED MEMORY RESOURCE 
1A 10 439 969 BSBB  —«— DALLOC_BLOCKS : DEALLOCATE SHARED MEMORY BLOCKS | 
58971 ; WAIT FOR NEEDED RESOURCE, BY DEAL LOCATING 1/0 PACKETS RESTORING | 
58 976 + 1/0 QUOTAS AND COUNTS AND INSER PROCESS | T STATE QUEUE. 
B 973 ; WHEN RESOU ace BECOMES AVAILABLE. i Rocess WILL Nee” RESTARTED AT | 
: aoe i 3: BEGININNING OF $Q10 REQUEST. 
458 976 RES_wAIT: ; WAIT FOR NEEDED RESOURCE 
0266 30 0458 97 BSBW —— DALLOC_IRPE t DEALLOCATE IRPE'S 
0 8ED0 5 978 POPL RO : GET FAILURE STATUS 
61 97 SETIPL sires AST AST DEL t SYNCHRONIZE FOR Q10 BACKOUT & WAIT 
06 20 a3 OA £0 0464 980 BBS #10 : IS NO RESOURCE WAIT MODIFIER SET? 
69 981 IRPSW” Funes F 69$ : BRANCH IF MODIFER IS SET. 
90000000" GE 17 0469 9 : JMP G*EXESIOR : ELSE, DO POSSIBLE RESOURCE WAIT. 
‘GF 17 066F 983 69%: IMP CA EXESABOR "M0 : ABORT 1/0 TO AVOID RESOURCE WAITS. 


SSS PPT TE PLL LEE Ppp het PP LL Lt tse 
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DEALLOCATE ~ee MEMORY 


GET ADDRESS OF FIRST BLOCK 
IF EQL NOT ALLOCATED 


OFFSET TO NEXT BLOCK 
LLOCATE THE BLOCK 

PUTE ADDRESS OF NEXT BLOCK 
ee ves NEXT BLOCK? 


| 
H 
MBXORIVER - SHARED MEMORY I 
| 1 DALLOC_BLOCKS = DEALLOCATE SHARED MEMORY 12-SEP-1984 
| 4? : =A .SBTTL DALLOC_BLOCKS = DEALLOCATE SHARED MEMORY BLOCKS 
47 : 
| 7 : ; DALLOC_BLOCKS = DEALLOCATE ANY SHARED MEMORY BLOCKS 
475 990 : INPUTS: 
| ti 333 ; R11 = FIRST BLOCK ADDRESS 
47 398 : : 
a? 996 $ OUTPUTS: 
4 236 ; ALL SHARED MEMORY MESSAGE BLOCKS IN THE CHAIN ARE DEALLOCATED. 
47 998 : R1,R2,R3 ARE PRESERVED. 
47 99 ; 
475 1000 :-- 
475 1001 HALLOC_BLOCKS: : 
gE ep 0475 1 0¢ PUSHR #*M<R1,R2,R3> + SAVE REGIST 
50 8 09 477 100 MOVL R11,R6 ; 
1 1 7A 1004 BEQL 208 ; 
47C 1005 10S: 
10 a0 «pO «047C (1 06 MOVL § MSG_L_CHAINLINK(RO),R10 ; GET 
gooopaoe' se 16 80 100 JS$B G“*ERESDEASHARED 3 DEA 
50 SA 5B (C1 6 1008 ADDL3 R11, R10,RO > COM 
SA DS. (04BA 1009 TSTL. R10 : IS 
EE 12 048C 1010 BNEQ 108 : IF NEQ YES 
048 1011 208: 
OE BA 048 1018 POPR #*M<R1,R2,R3> ; RESTORE REGISTERS 
05 0490 101 RSB ; 
0491 1014 


r-- 


| MBXDRIVER = SHARED M mo MAILBOX DEVICE priver 16-SEP=1 AX/VMS Macro v04-00 Page 23 
Woe 1 STARTIO = 0 OPERATION 138 P=] 138 98: 98: i DRIVER. SREIMB MBXDRIVER.MAR:2 © 9) 
491 «SBTTL STARTIO = STARTIO OPERATION 
491 STARTIO = START READ OPERATION ON SHARED MEMORY MAILBOX 
491 : FUNCTIONAL DESCRIPTION: 
491 THIS ROUTINE IS ENTERED WHEN THE UNIT IS NOT BUSY AND THERE IS A 
491 : PACKET TO PROCESS. 
491 ; IF THERE IS A MESSAGE WAITING IN THE MAILBOX: 
491 o THE MESSAGE IS DEQUEUED 
491 © THE MAILBOX QUOTAS ARE ADJUSTED 
491 © IF THE MESSAGE CONTAINED THE MESSAGE WRITER'S IRP SEQUENCE 
491 NUMBER A MESSAGE IS SENT TO THE APPROPRIATE PROCESSOR TO 
a3 O INDICATE THE WRITE I/O SHOULD BE COMPLETED. 
491 © THE READ 1/0 REQUEST IS POSTED WITH THE ADDRESS OF THE MESSAGE 
491 IF THERE IS NO MESSAGE WAITING IN THE MAILBOX AND THE 1/0 REQUEST 
0491 SPECIFIED IOSM_NOW, THE REQUEST IS COMPLETED WITH FAILURE (SS$_ENDOFILE). 
491 IF THERE IS NO MESSAGE WAITING IN THE MAILBOX AND THE I/O REQUEST 
491 DID NOT SPECIFY IOSM_NOW: 
491 o THE PORT'S WAITING READER FLAG (MBXS$W_READER) IS SET 
0491 } THE READ ATTENTION AST FLAGS (mexsiy READAST) FOR ALL PORTS 
0491 ARE SCANNED AND IF SET, A MESSAGE IS SENT TO THE APPROPRIATE 
0491 PROCESSOR TO INDICATE fHaT THE AST! S SHOULD BE DELIVERED. 
491 © AN RSB TO THE DRIVERS CALLER IS EXECUTED LEAVING THE DRIVER 
491 TO AWAIT MESSAGE WRITTEN NOTIFICATION, 
+3 : INPUTS: 
491 R3 = 1/0 PACKET ADDRESS 
491 R5 = UCB ADDRESS 
491 : 
491 : OUTPUTS: 
491 R1 = OUR PORT NUMBER 
491 R2 = FIRST MESSAGE BLOCK ADDRESS. 
R4 = MAILBOX ADDRESS. 
OTHERWISE AN RSB IS DONE. 
1 ETARTIO: : 
54 0098 CS 00 1 VL __ UCBSL_MB_MBX(RS) ,R4 : Ge MALL BOX ADDRESS 
6 SET POR TELAG. ae READER(R4)  : SET WE HAVE A READER 
90 QRETRY SUCC 108 - : ATTEMPT TO DEQUEUE A MESSAGE 
49D REMOHI aBksa (R4) ,R2 ; 
50 039% ef 3¢ aC MOVIL 4 #sss oBADSUEUEMDA, RO ; SET FAILURE STATUS 
483 REQCOM : COMPLETE THE READ REQUEST 


ee a 
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Ybe 1 STARTIO = STARTIO OPERATION 13-865 SEP =}382 99: 98:22 YORIVER. SR SRCIMBXDRIVER.MAR:2 (9) 
489 1073; 
iB 1 7 + IF A MESSAGE WAS DEQUEVED, COMPLETE THE 1/0 REQUEST. OTHERWISE, 
489 1075 : IF 1OSM_NOW WAS SPECIFIED EXIT WITH FAILURE. OTHERWISE, NOTIFY 
489 1 i: t ANY INTERESTED PROCESSORS THAT A READER IS WAITING AND JUST RETURN 
489 1077 : TO WAIT FOR A MESSAGE TO BE WRITTEN. 
283 1098 ios 
1D 1¢ 0489 1 p “  Bve FINISHREA . v- CLEAR MESSAGE DEQUEUED 
0p 20 A 6 ‘ 488 1 #10$V_ NOW, IRP$W_FUNC(R3).20$ ; IF CLEAR 
0 0870 f 3¢ ¢ ; me MOVZWL #$S$_ENDO DOFFILE,RO 3 SET’ FAILURE itt 
4c? 4 nas REQCOM : COMPLETE THE READ REQUEST 
28 8 4(D 1 : "—s PUSHR «= #4MCRB_R : SAVE REGISTERS 
01 4CF 1 BSBW NOTIFY {READER + NOTIFY PROCESSORS OF READER 
ce $0 FO bebe 1089 Stee RON 88 TE STR ICURES EXIT? 
5 0407 1090 RSB : : ELSE, WAIT FOR MESSAGE NOTIFICATION 


Bron yer = SHARED ME mony te th DEVICE pave tt tt 4 90:08:13 AX/VMS Macro V04-00 Page (3) 


FINISHREAD = FINISH READ 1/0 OPERAT SEP=19 DRIVER. SRCIMBXDRIVER. MAR; 2 
4p eer .SBTTL FINISHREAD = FINISH READ 1/0 OPERATION 
4p 34 . FINISHREAD - FINISH READ OPERATION 
4D %6 + FUNCTIONAL DECRIPTION: 
408 1 38 : THIS ROUTINE IS ENTERED WHEN A MESSAGE IS AVAILABLE FOR A READ 1/0 
408 1099 ; REQUEST. 
408 1100; 
1 1 1 ; INPUTS: 
408 11 § : R2 = FIRST MESSAGE BLOCK ADDRESS. 
408 1104 : R3 = 1/0 REQUEST PACKET ADDRESS 
408 1105 : R4 = MAILBOX ADDRESS. 
408 11 6 : RS = UCB ADDR ESS 
408 1107 : 
14 1138 3 OUTPUTS: 
408 1110 : 
4D8 1111 FINISHREAD : 
at 1118 eck _PORTFLAG MBX$W_READER(R4) ; CLEAR WAITING READER FLAG 
O4DF 114 : FORMAT MESSAGE BLOCKS FOR 1/0 POST 
a 2 a8 O4DF 1116 : BISW tarsersfe comp KLIRPSM_ CHAINED,= ;SET COMPLEX/CHAINED 1/0 
2c a3 3¢ DO bE 1118 MOVL ate SVAPIE(RS) : INSERT BLOCK ADDRESS IN PACKET 
38 AS) «DO «(04E7 «111 MOVL i + INSERT USER BUFFER ADDRESS 
04 Ag 4EA 1120 Ga mttittat ts F 
50 52 00 eC 1 al MOVL ; GET FIRST BLOCK ADDRESS 
1D AO} «(9E «(O4EF «11 § "  MOVAB) = MSG_B_MESSAGE (RO) ,- : INSERT ADDRESS OF DATA 
60 4F2 1126 MSG-L~POST1OBUF (RO) : 
51 10 A0 09 FS 1125 MOVL MSG L~CHAINLINK(RO),R1 : GET OFFSET TO NEXT BLOCK 
9¢ 1 F? (11 5 BEQL § RESTORE_QUOTAS : IF EQL NO 
CO O04F9 11 ADDL UR : COMPUTE ADDRESS OF _BLOck 
10 a0. 51 00 4FC 11 : MOVL RI LMSG_ L_CHAINLINK(RO) ; SET ADDRESS AS LINK 
zn FY Bees 1180 + nt {GET NeW ADDRESS. 
5 1131 ; . 
: ; 1% $ ; RESTORE MAILBOX QUOTAS 
505 1134 RESTORE_QUOTAS: RESTORE MAILBOX QUOTAS 
3 1135 LOCK MBXSV aduorar ck MBX$B_ FLAGS (RG) > LOCK MAILBOX QUOTAS 
16 AGB? 1 6 DECW Hate RSS ; DECREMENT MESSAGE C 
Of he AO 3 3 + ADDW RSG.U-ASCLENGTHR2), - }: RESTORE BUFFER QUOTA 
SoA (11 | UNLOCK #MBX$0 QUOTAL CK MBX$B_FLAGS(R4) ; UNLOCK MAILBOX QUOTAS 
16 a4 B0 05 1140 MOVW MBX$W_ASGCNT(R4S,- ; SAVE MESSAGE COUNT 
44 AS 3 114 UCBSL ~DEVDEPEND (AS) ; 
537 1108 : NOTIFY WRITER THAT THE MESSAGE WAS READ (IF WRITER WANTED TO KNOW) 
5 , 1144 > AND REPORT MAILBOX RESOURCE AVAILABILITY. 
3c «BB 3 7 1146 ; PUSHR #*M<R2,R3,R4.R5> : SAVE REGISTERS 
009¢ cS pp 3 9 114 PUSHL UCBSL_AB i pirs) + SAVE ADDRESS OF SHB 
OF 0 D 1148 BSBW NOTE R : NOTIFY WRITER 


<z 
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he 1 FINISHREAD - FINISH READ 1/0 OPERATION 13-865} 38 99: 98: i DRIVER. SRCIMBXDRIVER.MAR;2 ° hy 
9¢ é 4 1198 MOVL #RSNS_MAILBOX,RO ; GET MAILBOX RESOURCE NUMBER 

bep 43 11 POPL R1 ; RESTORE ADDRESS OF 

enced, 46 1151 JSB G*MASRAVAIL 3 REPORT THE RESOURCE AVAILABLE 

te i f POPR #*M<R2,R35,R4,R5> ; RESTORE REGISTERS 
Pr i gi ; COMPUTE SIZE OF DATA AND STATUS, AND COMPLETE THE READ I/0 REQUEST. 
0691 8F B0 ef 11 § MOVW #Sss OBEN CRS). RO 3; Assume buffer overflow. | 
of °.2 2A3 Bl 22 11 CMPW 1RPS$O 3 
5 11 8 ns6_ W “MSGLENGTH(R2) ; Was there a buffer overflow? 
08 1f QO558 11 BLSSU. 1 3: Branch if butter overflow. 
32 AS «0E A2-~ «BO : A 1169 MOVW = MSG UBENTIRS) ; Otherwise, transfer only the 
F 11 IRPSW ; bytes actually in the message. 
50 ‘01 00 55F 1166 MOVW #sss ADAM RO 3 and set normal xfer completed. 
50 10 10 32 a3 fF 266 1165 10$ INSV IRP$Q_BCN ttR3N- RO ; Plant bytes transfered count. 
28 «#1C A2 91 «0568 1164 CMPB Os MSG_B- “FONCKRD): nos UR feor i Was this an end-of-file function? 
0 3 56C 1165 BNEQ 20$~ : Branch if not an end-of-file. | 
50 0870 8F 8B 78 1186 208 MOVW #SS$_ENDOFFILE,RO ; Else, set eof status. 

51 18 A2 D0 057 1168 MOVL MSG_L_PID(R2),R1 3; GET EXTENDED PID OF WRITER 
0577 1169 REQCOM ; COMPLETE READ 1/0 REQUEST 
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RUPT DISPATCHER 1823Eb=1986 98:18:56 YORIVER. SRESMBXDRIVER.MAR:2 29° (Fay, 


-SBTTL MBXSINT = INTERRUPT DISPATCHER 


; MBXSINT = PORT REQUEST INTERRUPT DISPATCHER 

: FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS CALLED WHEN THE PORT DRIVER pti ghd A 
REQUEST FROM A PROCESSOR THAT SPECIFIES THE MAILBOX 
DRIVER AS THE MESSAGE DISPATCHER ID (PRQSC MAILBOX) « 


THIS td EXAMINES THE REQUEST TYPE CODE AND DETERMINES 
WHETHER IT SHOULD: 


© DELIVER ALL THE WRITE ATTENTION AST'S FOR A UNIT AND 
COMPLETE ANY WAITING READ REQUEST(S) (PROQ_WRITE) 
) per vee ALL THE READ ATTENTION AST'S FOR A “‘IT BECAUSE 


A READER IS WAITING (PRQ_READER) 


) cae bee A WRITE 1/0 REQUEST BECAUSE ie MESSAGE WRITTEN 
S READ BY ANOTHER PROCESS (PROQ_READ) 


INPUTS: 


RO-R4 = SCRATCH 
R5 = INTER=PROCESSOR REQUEST BLOCK ADDRESS. 


00(SP) = ADDRESS OF IDB ADDRESS. 
IPL = IPL$_MAILBOX 
OUTPUTS: 
APPROPRIATE ACTION IS TAKEN DEPENDING ON THE REQUEST TYPE. 
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INT EXIT: 
RSB 


; READER WAITING REQUEST = DELIVER ANY READ ATTENTION AST'S 


READER. , READER WAITING REQUEST 
neth. PORTFLAG MBX$W_READAST(R4) ; CLEAR NOTIFY FLAG 


RIP OP IMIMIPPIPIPOPIFYPIPNINPINPIPINPIAININIAPINIPINI IID 8 9 a ot SS SS SS 


DODO 00 OOOO NNN NSN 


MBXSINT: ; INTERRUPT DISPATCHER 
0 MOVL  a(SP)+,R3 ; GET ADDRESS OF IDB 
1 MOVL R5,R2 ; SAVE REQUEST BLOCK ADDRESS 
1 MOVZWL PROSW_UNIT(R2) RS ; GET UNIT NUMBER OF REQUEST 
1 MOVL  IDBSL~UCBLS7(RS)CR5),R5 ; GET UCB ADDRESS 
1 BEQL INT ERIT : IF EQL NO CORRESPONDING UNIT 
1 MOVL UCBSL_MB_MBX(RS) .R4 ; GET MAILBOX ADDRESS 
1 CASE  PROSWTREQTYPE (R25 ,- : DISPATCH ON REQUEST TYPE 
1 LIMIT=#PRQ_READ,<- : LOW LIMIT 
1 READ_REQ,- ; MESSAGE WAS READ 
1 WRITE REQ, > MESSAGE WAS WRITTEN 
1 READER, REG, - : READER WAITING 
! ; EXIT INTERRUPT 
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VOu-001 MBXSINT = INTERRUPT DIS page 18-8 aatt 99: 0g: Mi DRIVER. SRCJMBXDRIVER.MAR; 2 . (B; vl 
54 94 (5 D M6 1 MOVAL UCBSL_MB_RAST(RS),R4  ; GET ADDRESS OF READ AST LIST 
$0000006" gF 5 sie JMP G*COMSDECATTNAST t DELIVER ANY AST'S AND EXIT 
3B 1231 : MESSAGE WAS WRITTEN REQUEST = DELIVER ANY WRITE ATTENTION AST'S AND 
Sai 1 j : IF A READ 1/0 REQUEST IS ALREADY WAITING FOR A MESSAGE, ATTEMPT TO 
6 3: DEQUEUE A MESSAGE AND COMPLETE THE 1/0 REQ Est. 
B1 1235 Grite. REQ : MESSAGE WAS WRITTEN REQUEST 
5B1 1 § CLR PORTFLAG MB maxsu WRITAST(R4) : CLEAR NO 
54 9090 ¢ be 0588 1 MOVK WAST(RS),R4 : GET ADDRESS OF WRITE AST LIST 
00000000' 16 SBD 1238 J GCORBDECATINAST + DELIVER ANY AST'S 
54 i f D 2¢ 1239 MOVL BS, OMB (R5) ,R4 : GET MAILBOX ADDRESS AGAIN 
D1 64 A £1 05¢B8 1240 BBC Mit q Bs Ucesy” STS(RS)INT_EXI CLEAR NO READER WAITING 
DO O5¢€D 1241 BSL. PCR : GET 1/0 PACKET ADDR 
sp1 1 4g QRETRY : ATTEMPT TO DEQUEUE A MESSAGE 
5D1 104 REMQHI has0 108 R2 : | 
BA 1D O5€2 1264 BVS : IF V-SET, NO MESSAGE 
FEF1 31 SE 43 ne BRW FINTSHREAD : ELSE, MESSAGE DEQUEUED 
50 0394 8F 3C O5E7 1 23 MOVZWL #SS$_BADQUEUEHDR,RO ; SET FAILURE STATUS 
514 OSeC 1248 CLRL ORT * ; 
SEE 49 REQCOM + COMPLETE THE READ REQUEST 
Ost 31 ; MESSAGE WAS READ REQUEST - COMPLETE THE ORIGINAL WRITE 1/0 REQUEST 
O5F4 1 34 READ_REQ: ; MESSAGE WAS READ REQUEST 
53 OOAO CS DE O5F4 1254 MOVAL UCBSL_MB_WIOQFL(R5),R3 ; GET ADDRES S OF WRITE PACKET LISTHEAD 
51 53 00 O5F9 35 ae. MOVL R3,R1~ : SAVE A COPY OF IT 
53 $3 pO O5FC 1 3$ MOVL = (R3),R3 : GET ADDRESS OF NEXT PACKET 
51 53) «bt sOOSFF «1258 CMPL ~—saR3_ RA : END OF QUEUE? 
; 9A 13 0602 1259 BEQL = INT_EXIT ; IF EQL YES = REQUEST GONE 
50 A301. «0604 «1260 CMPL —sIRPSL_SEQNUM(R3),- : IS THIS THE CORRECT REQUEST? 
24 A2 607 1261 PROSL ~PARAM(R2) ; 
F1 12 0609 1 6¢ BNEQ 10 : IF NEQ NO 
53 63 OF 0608 126 REMQUE (R3),R3 : REMOVE PACKET FROM QUEUE 
0°32 a3 80 0606 1264 Ovw IRP$W BCNT(R3), RO : GET BYTE COUNT OF MESSAGE 
50 50 10 78 0612 1265 ASHL #16,R0,R : MOVE TO UPPER WORD 
gi BO 0616 126 mMOVW so #SS$ RNORRAL, RO * : SET SUCCESS STATUS 
1 D4 0619 126 CLRL sR + (NO PID) 
38 A350) ss 7D:s«éO061B 1268 MOVa = RO LRP SL 1OST1(R3) + SET 1/0 STATUS IN IRP 
00000000'GF 17 O61F 1269 JMP G*COM : COMPLETE THE WRITE REQUEST 
| 
| 
| 
| 
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e BOY NOTIFY = NOTIFY OTHER PROCESSORS OF COND =S5EP=1984 Z 99: 8: B YORIVER. SREIMBXDRIVER.MAR: 2 . (93) 
6 f «SBTTL NOTIFY = NOTIFY OTHER PROCESSORS OF CONDITIONS | 
625 1073: 
| 625 1274 ; NOTIFY_READER - NOTIFY OTHER PROCESSORS OF Rs READER 
625 1275 ; NOTIFY-READ = NOTIFY OTHER PROCESSOR THAT A MESSAGE WAS READ 
é 26 ; NOTIFYWRITE = NOTIFY OTHER PROCESSORS THAT A MESSAGE MBAS WRITTEN 
625 1 28 + THESE ROUTINES ARE CALLED TO FORMAT AND SEND A REQUEST TO THE 
6 ‘9 ; MAILBOX DRIVERS ON OTHER PROCESSORS. 
Og 1 : INPUTS: 
O8 1 : : R2 = FIRST MESSAGE BLOCK ADDRESS (NOTIFY_READ ONLY) 
625 1284 : R3 = 1/0 PACKET 
0625 1285 : R5 = UCB ADDRESS 
0625 1 86 ; 
06 1 3; OUTPUTS: 
06 1288 ; 
be : ! 3 3 RO = SUCCESS/FAILURE. 
0625 1291 : REQUEST(S) FORMATTED AND PASSED TO PORT DRIVER FOR DELIVERY 
Be : : , : TO REQUIRED PROCESSORS. 
0625 129% : RO,R1,R2,R3,R4,R5 DESTROYED 
0625 1295 ; 
0625 1296 :-- 
0625 1297 
0625 1298; 
06 3 99 ; NOTIFY ANY INTERESTED PROCESSORS THAT A READER IS WAITING 
0625 1301 NOTIFY -READER: : NOTIFY READER AVAILABLE 
S52. 0098 CS DO 0625 1 08 UCBSL_MB_MBX(R5) : GET ADDRESS OF MAILBOX 
50 10 Ae 80 062A 130 nov Mr Str Per aet Caos a0 : GET PORT #’S TO NOT 
51 0 C 062E 1304 MOVZWL #PRQ_READER,R1 : SET REQUEST TYPE 
FOO 06 1 05 BRB NOTIFY : NOTIFY THEM 
0633 1307 : IF IT WANTED TO KNOW, NOTIFY PROCESSOR THAT WROTE MESSAGE THAT IT 
06 08 t WAS READ. 
633 1310 NOTIFY_READ: ; NOTIFY MESSAGE READ 
1311 HL MSGB PORT (R2), #1,RO =: GET PORT # NOTIFY 
638 1 1 MOVZWL #PR RO REA : SET REQUEST TY Pp 
638 131 VL MSG c oeracR2). R2 : GET WRITER'S PACKET 
F 1314 BNEQ NOTIFY : IF NEQ = WRITER Is INTERESTED 
0641 15 $B ; ELSE = JUST RETU 
64 19 ; : NOTIFY ANY INTERESTED PROCESSORS THAT A MESSAGE WAS WRITTEN 
45 1319 NOTIFY WRITE: ; NOTIFY MESSAGE WRITTEN 
52 m8 C5 p0 42 1320 UCBSL_MB_MBX(RS) ,R2 > GET ADDRESS OF MAILBOX 
50 A C 064? 1321 MOV IUL MBXSW-WRITAST(R2S,RO  ; GET PORT #°S TO NOTIFY 
50 OF A2 AB 0648 1 : BISW MBX$W~READER(R2) ,RO per 
51° 02 3C O4F ; MOVZWL #PRO MOnTIES R1 : SET REQUEST TYPE 
ss 5 : NOTIFY PROCESSOR(S) THAT A CONDITION HAS OCCURED 
652 1 5 NOTIFY: ; NOTIFY PORT(S) 
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OTHER PROCESSORS OF COND 13-SEb= 1382 Rie DRIVER. SRCJMBXDRIVER.MAR; 2 . 33) 
PUSHL 5 ; SAVE UCB ADDRESS 
MOVL 1RPSL EXTEND(R3) ,RS : GET FORK BLOCK ADDRESS 
MOVL IRPES C_EXTEND(R5S ,- + REMOVE BLOCK FROM LIST 
{RPSL WEXTEND(R3) : 
BNEQ 0$ IF NEQ NOT LAST BLOCK 
ae BiCW  #IRPSM_EXTEND, IRPSW_ sTS(R3) ; ELSE, CLEAR EXTEND FLAG 
MOVW RO. IRPESW_ MB PORTS(R5) ; SAVE PORT #°S TO NOTIFY 
MOVW R1,IRPESWIMB-ROTYP(RS) ; SAVE REQUEST TYPE 
MOVL  R2,IRPESL“MB PAR AM(RS) : SAVE PA RAME TER 
MOVE #1PLs_ MAICBOR, pee ine SET FORK IPL 
POPL R RESTORE UCB ADDRESS 
MOVL §UCBSL_MB_SHB(RO),R : CEP SHB ADDRESS 
MOVL SHBSL “DATAPAGE RI) Rl: GET DATAPAGE ADDRESS 
MOVZBL SH HDSB_POR TS(R1),R ER OF PORTS 
SUBL Ri, 1RPES MB *BORT(RS)* 3 COMPUTE STARTING PORT NUMBER 
MOVL jcéeue RB ADDRES 


MOVL CRBSL- INTDSVECSL -ADP(R4), Re ; GET ADP ADDRESS 


; FORMAT PROCESSOR REQUEST MESSAGE AND RETURN TO PORT DRIVER FOR 
; DELIVERY TO OTHER PROCESSOR. 


FORMAT PRO: ; A aro! aT ae REQUEST 


OOD NIA MNES $9 OD NA NE AIN 9 ODO NA UE WI @§ OOD NAUES WN" OWOONAULS WH O0O << 


DDSI SD DED DED DDE DEDEDE PTT BS BB BB BB EE ANIA 


IRPESL_MB_PORT(RS),- CLR, DON'T NOTIFY THE PORT 
IRPESW-MB-PORTS(R5S.108 : 
JSB G“MASREQUEST + CALL PORT DRIVER FOR A REQUEST BLOCK 
+ R2 = MESSAGE BLOCK ADDRESS 
BLBC RO, NOTIFY_DONE : IF LBC, FAILURE 
MOVW IRPESL_MBTPORT(RS),- =: SET PoaRT” NUMBER TO SEND TO 
prose TO_PoRT(R2) : 
MOVW #PROSC_MAILBOX,- 3 SET MESSAGE DISPATCHER ID 
Q$W_BISPATCH(R2) : 
MOVL IRPSL“UCB(R3) ,RO : GET UCB ADDRESS 
MOVW CBSW-UNIT(ROS,- : SET UNIT NUMBER 
PROSW-UNIT(R2) : 
MOVW —sIRPES QTYP(RS), t SET REQUEST TYPE 
PROSW_REQTYPE(R2) ; 
MOVL IRPESC_MB_PARAM(RS),- : SET PARAMETER 
PROSL _PA PARAM(R2) 
MOVB = # IPL ZMAILBOX, FKBSB_ F1PLiR2) ; ast! DISPATCH IPL 
JSB a(sP)F : RETURN TO PORT DRIVER FOR DELIVERY 
pe BLBC RO, NOTIFY_DONE 3; IF UBC. FAILURE 
SOBGEQ IRPESL MB _PORT(RS),FORMAT_PRQ DECREMENT PORT # AND LOOP 
MOVL #SS$_NORMAL,RO :7SET guc 
: DONE WITH NOTIFICATION, DEALLOCATE THE FORK BLOCK 
NOTIFY_DONE : ; DONE WITH NOTIFICATION 
PUSHL R : SAVE agxlT STATUS 
MOVL R5,R0 > SET ADDRESS OF BLOCK 
JSB G*EXESDEANONPAGED t DEALLOCATE FORK BLOCK 
POPL RO : RESTORE EXIT STATUS 
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Oba ALLOC IRPE ALLOCATE CAN TVD REQCEST PAC 1SaSEPotoRe o8i4S ice PONIVER. ceeSBevoniccR.mans2 2% cia) 


| gp0 -~ .SBTTL ALLOC_IRPE = ALLOCATE AN 1/0 REQUEST PACKET EXTENSION 
| 60) iE “ALLOC. IRPE = SUBROUTINE TO ALLOCATE AN I/O REQUEST PACKET EXTENSION 
DD 1 $i ; THIS ROUTINE IS CALLED TO ALLOCATE AN 1/0 REQUEST PACKET EXTENSION 
600 : : FOR LATER USE AS A FORK BLOCK. 
DD 1390 ; INPUTS: 
60D 1391 ; 
600 1 3¢ : R3 = 1/0 PACKET ADDRESS. 
60D 1393 : 
6DD 1394 ; OUTPUTS: 
60D 1395 ; 
60D 1 36 : IRPE ALLOCATED FROM NON=PAGED POOL AND LINKED TO 
600 1397 : OF 1/0 PACKET (IRPSL_EXTEND). IF ALLOCATION FAILS, ANY 
6DD 1398 ; PREVIOUSLY ALLOCATED” IRPE IS DEALLOCATED AND THE 
6DD 1399 ; ROCESS IS PUT IN RESOURCE WAIT STATE TO AWAIT NON=PAGED POOL 
06D 1400 ; AVAILABILIT ve 
60D 1401 
60D 1408 ALLoc. IRPE : : ALLOCATE AN IRPE 
53 pp 6DD 140 PUSHL R3 > SAVE REGISTER 
51 00C4 BF 3C O6DF 1404 MOVIL #IRPSK_LENGTH,R1 ; SET SIZE OF BLOCK 
00000000'GF 16 0664 1405 JSB G“EXESALONONPAGED ALLOCATE BLOCK 
53 BEDO O06EA 1406 POPL RB ; RESTORE REGISTER 
650 €9 O6€D 140 BLBC ~=—_-«RO, 208 : IF LBC FAILURE 
08 A251 80 6FO 1408 MOVW RI IRPESW_SIZE(R2) SET SIZE IN BLOCK 
OA A2 2C 90 06F4 1409 MOVB DYNSC IRBE InP E$B_ TyPE(R2) ; SET BLOCK TYPE IN BLOCK 
54 AS D0 O06F8 1410 MOVL TRPSt EXTEND (R3),- : set NEXT IRPE ADDRESS IN BLOCK 
54 A2 6FB 1411 IRPESC_EXTEND (R25 
06 13 O6FD 1618 BEQL $ L NONE 
2A A2 0800 BF AB off 1413 he BISW #IRPESM_EXTEND, IRPESW_ grid tT EXTENSION FLAG 
54 a3 52.—oi 0708 1415 MOVL RPSL EXTEND (R3) SET IRPE ADDRESS IN IRP 
2a a3 0890 BF AaB 0709 1416 BISW Reade ERT TEND IRE Sw, s1s(R3) ; SET EXTENSION FLAG 
Ag D4 O70F 141 CLAL TAPE SC “EVA PTEL(R CLEAR SVAPTE $0 1/0 POST WILL 
§ A2 04 r1e 1418 CLRL IRPESL™ ~SVAPTEZ(R : ati DEALLOCATE THE BLOCKS 
05 0715 1419 RSB ; 
716 1420 208: 
SE 06 CO 0716 1421 ADDL ; REMOVE RETURN ADDRESS 
7E 0126 8F 3C 0719 14 ‘ MOVZWL tt INSFMEM = (SP) + SET FAILURE STATUS 
51 03 3¢ O71E 14 MOVZ2WL #RSNS_NPDYNMEM,R : SET RESOURCE TO AWAIT 
FD37,s 31.—«0721— 1424 BRW RES_WAIT : WAIT FOR NON-PAGED POOL 


oO 
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Vv 1 DALLOC_IRPE = DEALLOCATE AN 1/0 REQUEST “SEP=1984 6 CORIVER.SRCIMBXDRIVER.MAR; 2 (15) 


~SBTTL DALLOC_IRPE = DEALLOCATE AN I/0 REQUEST PACKET EXTENSION 


DALLOC_IRPE = SUBROUTINE TO DEALLOCATE AN I/0 REQUEST PACKET EXTENSION 
INPUTS: 

R3 = 1/0 REQUEST PACKET ADDRESS. 
OUTPUTS: 

i REQUEST PACKET EXTENSION IS DEALLOCATED TO NON-PAGED 


R1,R3,R5 ARE PRESERVED. 


Deo Se Oe Oe Oe Se Se Se Se Se Se Sete Se 
9 


PAA APDIP PYNIPINININIDPYIMAININIMNNINININININN 
RIN @ NR ONIN MO POLS SSL ELLE PEL PPP EE EE 
a ee 8 8 a 4 8 8 
Sl elk ak ek ak el eka al ahah a ak ae ke ek ek ek ek ak ek ee 
PUPP Be BS BS BB EE EAN III nonen 


NAMES WN CO OD NA UNE OP O ODNA UNE UP" OC OOO 


ALLOC_IRPE: 3 DEALLOCATE AN IRPE 
09 MOVL RPSL_EXTEND(R3) RO ; GET IRPE ADDRESS 
1 BEQL 0$ ; BR IF NONE 
dO MOVL IRPESL_EXTEND(RO),- ; REMOVE IRPE FROM LIST 
RPSL_EXTEND(R3) 3 
12 BNEQ 0$ : JF NEQ NOT LAST IRPE 
AA 8 en BICW #IRPSM_EXTEND, IRP$W_STS(R3) ; CLEAR EXTEND FLAG 
OA BB O PUSHR #*M<R1,R3> 3 SAVE REGISTERS 
00000000'GF 16 0 JSB G-EXESOEANONPAGED ¢ BEA LLOCATE IRPE 
OA BA O POPR <R1,R3> RESTORE REGISTERS 
8 208: 
05 RSB 3 
0 MB_END 
0 END 


5054 a 
54 A 
8 
2A AS = 0800 BF 
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Symbol table 12-SEP-1984 23:15:56 (CORIVER.SRCIMBXDRIVER.MAR; 2 (15) 
$$$ = §8 R 02 Bef Bed ty eeneeeee = 8§ x 
$soPp = XESQIORE TURN eeneteee § x 
ALLOC_BLOCK 33 a EXESREADCHK eeeeenee =X 
ALLOC"FAIL R EXESWRITECHK eeeeeeee § X 
OC" IRP a FOTEOF oct R 
ATS_MPM s FOTREAD 54 g 
CAS" MEASURE = FOTSET g 3 a 
CANSC_AMBXDGN = FOTWRITE D9 R ; 
CANSC"DASSGN = FINI SHREAD 408 R 
CANCECIO R 03 FKBSB_FIPL = 
CCB$B_STS = FKBSK-LENGTH s 1 
CCBSV_RDCHKDON = FORMAT _PRQ ? R 93 
CCBSV-WRTCHKDON = FUNC TABLE a 
CHECKTO 1AF R FUNCTAB_LEN s 4 
CHECK QUOTAS 383 R IDB$L_UCBLST 2 1 
COMSDELATTNAST eeeeeeee INT ERIT 9E R 03 
COMSF LUSHATINS eeeeneee x 10$9_NORSWAIT = 0000000A 
COMSPOST eeeeenee =X 8 10$V_NOW = Boe 96 
COMSSETATTNAST eeeeeeee =X 1O$V~READATTN = 000 0 
CRBSL_INTD = 00000024 10$V-SETPROT = 00000009 
CXBSL_LI z 10$_READLBLK = 49 1 
CXBSW_LENGTH = 10$_READPBLK = 00C 
DALLOC_BLOCKS 03 10$-READVBLK = 00000031 
DALLOC IRPE 0 10$_SETMODE 2 309 tH 
DCS$_MATLBOX = 1O$_ VIRTUAL = 0000003F 
SL_DDT = 10$_WRITELBLK = Sees o 
DEVSM_AVL z 10$_WRITEOF = 00000028 
DEVSM_IDV = 10$_WRITEPBLK = 464489, 
DE VSM_MBX s 10$-WRITEVBLK = 00000030 
DE VSM_NNM s IOCSMNTVER eeeenere 03 
DEVSM_ODV = IOCSREQCOM eeneeese =X 03 
DEVSM_REC z LOCSRETURN eeeneene 03 
DEVSM_SHR s IPL$_ASTDEL : 
DPTSC_LENGTH = IPL$_MAILBOX = 
DPTSC" VERSION = IPL$- SYNCH = 
DPTSIRITAB 0 IRPSR_LENGTH 2 
PTSREINITAB 0 IRPSL_BCNT = 
DPTSTAB 0 IRPSL_EXTEND = 
T$_ SHRMBX s IRP$L_I0ST1 s 
DYNSC_CRB = IRPSL-MEDIA s 
DYNSC_DDB = IRPS$L_PID z 
YNSC_DPT s IRPSL_SEQNUM = 
Sine -one ines 
= = 
DYNSC_ SHRBUF 10 = PERT CHAINED = 
DYNSC-UCB s IRPSM_COMPLX s 
IRPSM~EXTEND 2 
EXE T10 eeeeeese IRPSM_MBX 10 s 
eeeeeece x IRPSW_BC z 
E XESALOSHARED eeceeeee § x IRP$W_BO = 
EXESCHKRDACCES eeceeeee § x IRPSW = 
EXESCHKWRTACCES eecceeee § xX IRPSW = 
EXESDE AGED cereceee x IRPSW z 
EXE SDEASHARED eeceeeee § xX I pees s 
EXESF INISHIOC eeeceeee § xX IRPESL = 
EXESGL_LOCKRIRY eecceree § x PESL 
EXESIORSNWAIT eeeceeee PESL 
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Symbol table 12-SEP-1984 25:15:56 (CORIVER.SRCIMBXDRIVER.MAR; 2 (15) 
IRPESL SVAPTE1 = PCBSL_EPID s 4 
[RPESC“SVAPTE? 2 PEBSt PHD 2 ¢ 
IRPESM_EXTEND = PCBSL_PID = 6 
IRPESW_MB_PORTS PCBSL_UIC : C 
IRPESW_MB ROT YP 1A PMSS$GC_MBREADS aeeeeere x 03 
IRPESW_SIZE = 98 Ons OoL -ROURITES eeereree 
IRPESW 3 = 4 PRS_I = 2 
LNMSDECETE _LNMB eenreeeee § =X PROSC_MAILBOX = 0 
LNMSLOCKW eeeeeere =X PROSC_MINLENGTH s 40 
LNMSUNLOCK eeeeeere =X PROSL_PARAM s eh 
MASRAVAIL eereeeee =X PROSW_DISPATCH z 
MASREQUE ST eeeeeeee =X pRasu peer yee s ¢ 
MAILBOX_FULL 00443 R PROSW_TO_PORT s 
= 1 PROSW-UNTT s 
MASKL = 0 PRO_RE : 
MBX$B_CREATPORT 2 PRQ-READER = 3 
MBX$B-FLAGS = : PRQ-WRITE = é 
MBXSDOT 9 RG 03 PRVSV_BYPASS = 1D 
MBXSINT R READCRECKIO 180 8 03 
MBXSA_VALID = 00 READER REQ 59F R 03 
X$Q_MSG = READ_REQ SFG R 03 
MBX$V_QUOTALCK = RESTORE QUOTAS 293 ® 03 
MBX SW" BUF F QUO = 1 RES WAIT 458 R 03 
MBXSW_MSGCNT = 000 16 RSNS_MAILBOX = 0 
X$W_PROT z 1A RSNS_NPDYNMEM s 309 
MBXSW_READAST : B28 10 SETUP_BLOCK 3 er 03 
MBX SW" READE = 0000000E SHBSL_DATAPAGE = 04 
MBXSW_REF = 0000000 SHBSL_REF CNT = 000C 
MBXSW"WRITAST = 000 SHD$B_FLAGS s bo 
‘ Re 03 SHD$B_PORTS = 4 
mSG_B_FUNC i SHDSV_MBXLC = $9 
MSG_B_MESSAGE SHDSW_MBXQUOTA 2 
MSG_B_PORT SHDSW-RESWAIT = 00A 
MSG_B_ TYPE SHMRES WAIT 459 R 03 
MSG_L-CHAINLINK SS$_ABORT = Ost 
MSG_L_IRPSEQ $$$_BADQUEUEHDR s 4 
MSG_L_PID $S$_BUF FEROVE s 9} 
MSG_L_POSTIOBUF SSS_ENDOF FILE = 0 
MSG_L_POSTUBUF SS$_INSFMEM = 124 
MSG_Q"MSGL INK SS$_MBFULL = 808 
MSG_W" LENGTH SS$_MBTOOSML = 19¢ 
MSG_W_MSGLENGTH SS$_NOPRIV s 4 
MSG Ww" SIZE SSS" NORMAL = 1 
NOTIFY BR STARTIO 491 R 03 
NOT IF Y_DONE 9 TOOSMALL 1DF R 
NOT IF Y-READ ® UCB$B_DEVCLASS s 40 
NOTIF Y-READER 8 UCBSB_DEVTYPE = 41 
NOTIFY-WRITE a UCBSB_DIPL = 5E 
ORBSB_FLAGS = UCBS$B_F IPL = 0B 
ORBSL~ OWNER s UCBSK-MB_LENGTH z AC 
=NOACL = UCBSL_CRE z 4 
ORBSM_PROT_16 2 UCBSL-DEVCHAR = 8 
“PROT s UCBS$L_DEVCHAR2 = C 
PI = UCB$L_DEVDEPEND s 4 
Pp s iit tee = 38 
e s UCBS$L-LOGADR = 4 
PG s UCBSL"MB_MBX = 98 
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Macros defined 
-ALB 37 
RLET. hat B;2 19 
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2794 GETS were required to define 47 macros. 
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